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EDITORIAL JOTTINGS 
BEEBUG 


We are concerned that BEEBUG should continue to reflect the 
needs and interests of you, the members. Through the magazine, 
through our range of software products, and more recently 
through our BEEBUG retail shop, we have tried to provide the 
services that we believe BEEBUG members want. At all times we 
do aim to provide a personal service and to provide continuing 
support, not only for our own products but for all matters related 
to the BBC micro and the new Master series. 

In order that we can continue to improve and expand the 
range of services that we offer members, we need to increase the 
membership of BEEBUG. In this task, we would like to enlist your 
active help and support. If you can persuade just one person to 
join BEEBUG this year and other members do likewise, then this 
would help enormously and provide the impetus that we need to 
expand our range of activities for the benefit of members. 

Of course, if you would like to send us your views on how we 
can improve BEEBUG, then we would be delighted to hear from 
you. BEEBUG can only remain successful if we can provide what 
you want from your user group, and we can only do that if you 
tell us what that is. 


MASTER SERIES 

Judging just from the number of enquiries received through our 
shop, the new Master Series is proving very popular with BEEBUG 
members. Starting this month our own new Master Series will 
provide articles and programs just for Master users. In this series 
we shall be looking at the many new features of the Master and 
prising open some of the less well documented secrets of Acorn’s 
new range. In addition, this month also sees our in-depth review 
of the Turbo upgrade for the Master 128, producing one of the 
fastest micros available from any source 


PROGRAM CLASSICATION 

All programs in the magazine, and on the magazine cassette/disc, 
are marked with the symbols shown below. An uncrossed symbol 
indicates full working, a single line through a symbol shows 
partial working for that configuration (normally some 
modifications will be required), and a cross through a symbol 
indicates a program that will not work on that type of system. 
There is a symbol for the B+ which includes the 128K version, 
and a symbol for the new Master series. 


Basic I I Electron g 
Basic II II Disc n 
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Penman Power 


The ‘Data Plotting and 
Analysis' package from 
Penman Products is an 
inexpensive piece of 
software to make full use 
of the Penman Plotter (see 
the review in BEEBUG Vol.4 
No.2). The package includes 
a data editor, a 1728 cell 
spreadsheet, and is capable 
of a wide range of stat- 
istical analysis of data 
such as cross-correlation, 


confidence limits, sample 
variance, standard dev- 
iation, and so on. 

The results are 


displayed graphically and 
after previewing them on 
the screen they are 
automatically plotted in 
full colour by the Penman 
Plotter. The software 
package costs £45 or £319 
for a complete package 
including the plotter. 
Details from  Penman on 
09903-209081. 


Parley Vous Peartree? 


An ingenious idea from 
Peartree computers will 
allow you to write fluent 
French, German, or Spanish. 


"Tick-tack' is a letter 
writing software package 
that allows you to write on 
a Beeb using a range of 
standard English clauses 


which it then translates 
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into the language of your 
choice. The only problem is 
the price - a rather hefty 
£160 per language. However, 
pour les riches, les 
details sont available from 
Peartree sur 0489-50595, 


The Direkt Approach 

If you want a more 
active approach to com- 
municating with our EEC 
partners then BBC Soft's 
latest software releases 
will help. 'Deutsch Direkt' 


and 'A Vous La France" are 
designed to accompany the 
TV programmes of the same 
name and make us all fluent 
in German and French. The 
packages include as well 
audio cassettes and book- 
lets and cost £22.95 and 
£19.95, respectively, from 
BBC Soft on 01-927 4518. 


Arcade Incentives 


Incentive Software is 
launching its latest Beeb 
game (a licensed version of 
the arcade game  'Moon 
Cresta’) with an unusual 
competition - to win an 
arcade machine featuring 
the original game. To gain 
this truck-load of 
electronics you will have 
to first spend £7.95 
(cassette) or £9.95 (disc) 
on Moon Cresta, score over 
30,000 points, and then 
come first in the lucky 
draw. Details from 
Incentive on Ø734-591678. 


Two into One 

The ingenious Mr. 
Terrell (see last month's 
review of sideways RAM 
modules) has solved the 


problem of all you  BEEBUG 
members with two printers 


and one computer or a 
single printer and a couple 
of  Beebs. His printer 
switch boxes will connect 
up such trios allowing 
switching between routes. A 
2 Beeb to 1 printer box 
will cost you £35 and a 2 
printer to 1 Beeb box £38. 
Details from C.F.Terrell on 
04024-71426. 


More from Micronet 


The main problem with 
Prestel and other Viewdata 
systems is that the 
resolution, and therefore 
realism, of graphics is 
decidedly poor. Micronet 
has skirted around this 
problem with the intro- 
duction of high resolution, 
'photo-quality' pictures to 
accompany news and features 
related to the BBC micro. 
These pictures can only be 
received via your modem 
from Micronet if you have 
the right software to 
decode the data but 


surprisingly this is free 
to Micronet member s . 
Details from Micronet on 


91-278 3143. 


Also from Micronet is 
an idea that will appeal to 
many businessmen beleag- 
uered with paperwork. 
Accountancy company MAS is 


offering a service in the 
Biznet area of Micronet 
whereby all payments and 
receipts are entered on 


screen and downloaded to 
MAS where they are analysed 
and a hard copy comprising 
audit and VAT report, 
purchase and sales ledgers, 
and so on, is returned to 
you through the post. 
Further details from MAS on 
0937-63778. 

a 
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Expanding Wordease 


Wordease is written in the 
Wordwise Plus programming 
language, and IC 18-22 
simple matter to expand it 
to encompass your own 
routines. As an example, we 


will show how to 
incorporate the Wordwise 
Debug program printed 


elsewhere in this issue. 


The first thing to do is to 
make yourself a working 
copy of the Wordease disc, 
since you may not write to 
the dual format disc as 
sold by Beebugsoft. You do 
this using the *COPY 
command (rather than 
*BACKUP), copying all files 
except for the two whose 
filenames consist of 
asterisks. 


required 
simple. There are only 


The modifications 
are 
two minute adjustments 
required to the Wordease 
main menu program, and 
three variables in the 
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Debug need to be globally Quickcalc — Tube compatible 


changed to avoid any 
clashes. 

To do this proceed as 
follows. Load Wordease as 


usual with Shift-Break, 
then press Escape once the 
menu appears, and alter the 
following lines: 


P."M. Mail Merge" to 
P."M. Mail Merge N. 
Debug Utility" 


IFX$>="A"A.XS<"M"T.G.e to 
IFX$>="A"A.XS<"N"T.G.e 


The two lines are around 
the sixtieth and ninetieth 
respectively. When you have 
done this, save the segment 


as W.UTILS to your newly 
copied Wordease disc. 
To alter the three 


variables in the Debugger, 
load it into one of the 
lower segments, say segment 
4. Then go to the Wordease 
menu and select the editor, 
and target it to segment 4. 
Then globally change the 
four variables as follows: 


X% to R$ 
$ to S$ 
7$ to T$ 
Z$ to X$ 


Now save segment 4 on your 
new Wordease disc under the 
filename W.N, and the job 
is done. 


Once Wordease is booted up, 
the new entry will appear 
on the menu as selection 
"N", and it will load and 
run as any other Wordease 
utility. The only 
difference is that it also 
makes use of segment 7 to 
run the single-stepper, and 
there is no route back to 
the main Wordease menu from 
the Debugger menu, though 
the latter could be easily 
added. 


This low cost Beebugsoft 
disc/cassette based 
spreadsheet, although not 
as powerful as some of its 
competitors on Rom, 
continues to be well 
received. It is fully 6592 
tube compatible, utilising 
the extra memory for 
increased sheet size and 
has recently been reviewed 
favourably in Micro User 


(April 1986). 


Magscan and Watford RAM 


Mr D. Ridpath in Norway has 
sent us a hint to enable 
Magscan to be used with the 
Watford RAM Board. The 
problem was caused by the 
allocation of space to the 
RAM board workspace. The 
solution is to use the *MWS 
call to relocate this 
workspace as follows: 


*BUILD !BOOT 
0001 *BASIC 
ØØØ2*MWS 0A00 
0003*RAMON 
0004PAGE-&1500 
000 5CHAIN"INDEX" 
0006«esc» 
*OPT4,3 


This enters Basic, sets the 
workspace at hex AØØ, turns 
on the RAM board (which is 


necessary as otherwise 
INDEX is too big) and then 
continues as in the 
supplied ! BOOT file. 


<Shift><Break> then enters 
INDEX correctly. 
el 
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COMPUTER 
SIMULATION 


(Part 1) 


There is more to statistics than help- 
ing politicians out of tight corners. 
Careful use of simulation can help 
solve all kinds of problems in the real 
world. Jan Stuurman illustrates some 
useful computer techniques. 


If you have ever recorded marks in a 
school register, helped with a census, or 
taken readings of any other kind, you've 
probably used some elementary statistics 
already. The simplest form of analysis is 
to work out the average (also known as the 
'mean') of the figures obtained. You can 
analyse a set of numbers much more closely 
than this, however, and predict solutions 


to problems by studying statistical 
'models' of them. The calculations 
involved in these simulations can be 
speeded up using a micro. 

Any set of figures obtained from 
natural phenomena will be distributed 
across a range of possible values. Take, 


for instance, the pseudo-random number 
generator in BBC Basic (see also First 
Course, BEEBUG Vol.5 No.1). If you produce 


a thousand numbers in the range 1 to 100 
using the function RND(1ØØ), you can 
expect the numbers to be distributed 
uniformly throughout the range. There 
should be roughly ten of each number 
between 1 and 108, Logically enough, this 


kind of distribution is said to be 
'Uniform' and is ideal for simulating the 
throw of a die or the drawing of cards 
from a pack. 


Sets of figures taken from real life, 
however, are more likely to fit a 'Normal' 
distribution. Normally distributed values 
tend to be clustered around their mean, 
with values smaller or larger than the 
mean being less frequent the further they 
are away from it. This produces a 
characteristic bell-shaped curve. 

Examples of Normal distributions 
include the heights of people in a 
population, the lengths of leaves ona 
tree, the Intelligence Quotients (IQs) of 
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a group of people and the weights of a set 
of ten pence coins. To model this kind of 
distribution on a micro, you need to be 
able to generate random numbers which also 
possess the Normal ‘clustering’ behaviour. 
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A normal distribution can be described 
by specifying its mean and standard 
deviation. The mean value of curves | and 
2 is 50, while that of curve 3 is 100. A 
change of mean moves the whole curve left 
or right along the x axis. The standard 
deviation is effectively the 'spread' of 
numbers about the mean. Curves | and 2 
both have the same mean, but curve | has a 
larger spread, or standard deviation. 


The ‘demonstration program simulates 
400 observations of IQ in a group of 
people. IQ is a Normally distributed 


phenomenon which is known to have a mean 
of 1900 and a standard deviation of 16. The 
program draws a bar graph by grouping 
random IQ values in 32 intervals, each 4 
points wide. Once the bars have been 
drawn, a theoretical curve with the same 
parameters is superimposed on them for 
easy comparison. 


Hormal Distribution Sampling 


Intelligence Quotient (IQ) 
2"100, Standard deviation 


36 52 68 


84 108 116 132 148 164 
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FNnorm does most of the work in the 
simulation, calculating a Normal random 
number from the Uniform one available via 
the RND function. FNnorm can be used in 
your own programs to generate Normally 
distributed random numbers. 


The bar graph and theoretical curve 
are centred around the mean and take 
values in the range 'mean-64 ' to 


'mean+64', 64 is four times the standard 
deviation and 99.99% of all numbers in the 
distribution should fall in this range. 


AN EXAMPLE SIMULATION 
Suppose that a 


company manufactures 


units consisting of three resistors linked 
as follows: 


1202 


CIRCUIT OF SIMULATED 
COMPONENT 


Diagram of resistor network 


The total resistance of this unit is 
calculated as 1/(1/12ø+1/6Ø)+6Ø=1ØØ Ohms. 
If the required tolerance of the unit is 
2%, how will it affect the reject rate of 
units if the tolerance of each individual 
resistor is changed from 5% to 10%? 

If you replace lines 1200 to 1460 of 
the original program with the second 
program segment, the program will then 
simulate this problem, To do so, it makes 
use of the fact that 99.8% of all Normal 
random numbers will lie within 3 standard 
deviations of the mean. So, for example, 
the 120 Ohm resistor with a 10$ tolerance 
has a mean of 120 and an approximate 
standard deviation of (19% of 120) /3=4. 


This is because with a tolerance of 
10%, all resistors must come within the 
+/-1Ø% band. To encompass all values, this 
band must be some 6 standard deviations 
wide (i.e. 3 either side of the mean). 
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Thus the standard deviation of our 
idealised Normal distribution is 10% of 
120 divided by 3, or 4 Ohms. 


Run the program with 5% and 19% as the 
two resistor tolerances and you should see 
that lowering the tolerance of the 
resistors will increase the reject rate by 
roughly 580%. 


Next month we'll look at why you have 
to wait so long in queues at the Post 
Office! 


1Ø REM PROGRAM NORMAL RANDOM NUMBERS 
20 REM Version B.1 

3Ø REM Author Jan Stuurman 

40 REM BEEBUG June 1986 

50 REM Program subject to copyright 


108 MODEI:VDU23;11,0;0;0;0; 
110 ON ERROR GOTO 2200 

128 PROCinit 

130 PROCdemo 

140 REPEAT UNTIL FALSE 

150 END 


1800 DEFPROCinit 

1010 LOCAL I$:DIM bar$ (31) 

1020 CLS:PRINTTAB (6) "Normal Distributio 
n Sampling" 

1030 REM SET-UP GRAPH AREA & AXES 

1040 VDU24,0;0;1279;799; 


Normal Distribution Sampling 
Tolerance of resistors : 5 


i 190. so 


Components test eg 
rejected 


92 94 96 98 100 192 104 196 108 


195Ø VDU29,64Ø;64; 
1Ø6Ø GCOLØ,3 

1070 MOVE-512,0:DRAW512,0 

19080 MOVEO,0:DRAWÜ, 799 

1Ø9Ø FOR I%=-512 TO 512 STEP 128 
1100 MOVEI$,4:DRAWI$,-4 

1119 NEXT I$ 


1120 FOR I%=Ø TO 720 STEP 120 

1130 MOVE4,I$:DRAW-4,I$ 

1140 NEXT I$ 

1150 ENDPROC 

1169 : 

1200 DEFPROCdemo 

1218 mean-100:stddev-16:samplesize-400 
1220 @%=3:VDU5:REM LABEL AXES 

1230 FOR I$--4 TO 4:MOVEI$*128-48,-24:P 
RINTmean*I$*stddev:NEXT I$ 

1240 FOR I$-10 TO 60 STEP 10:MOVEO,I$*1 
2+8: PRINTI$:NEXT I$:VDUA 

1250 PRINTTAB (7,3); "Intelligence Quotie 
nt (IQ)"'" (Mean = 1ØØ, Standard deviati 
on = 16)" 

1260 VDU 19,2,4,0,0,0:GCOLl,2 

1270 REM FIND RANDOM IQ-SCORES AND 

UPDATE BAR-GRAPH 

1280 FOR observation-l TO samplesize 
1298 normalrnd-INT (FNnorm(mean,stddev,R 


ND(1))+.5) 
13800 IF normalrnd<36 OR normal rnd>=164 
THEN 1290: REM OUTSIDE 


1318 PROCbargraph ( (normalrnd-36)DIV4) 
1320 NEXT observation 

1330 REM DRAW THEORETICAL NORMAL CURVE 
1340 PROCnormalcurve 

1350 ENDPROC 

1360 : 

1378 DEFPROCnormalcurve 

1380 LOCAL x,y:GCOL@,1 

1390 FOR x-36 TO 164 STEP.5 

1400 y-EXP (- ( (x-mean) ^2) / (2*stddev^2)) / 
(stddev*SQR (2*PI)) 

1410 PLOT69, (x-mean) *8,19200*y 

1420 NEXT x:ENDPROC 

1430 : 

2000 DEFFNnorm (MEAN, STDDEV ,CDFVAL ) 

2010 LOCAL sign,temp,norm 

2020 sign=1+2* (CDFVAL<.5) 

2030 temp=-LN (4*CDFVAL* (1-CDFVAL) ) 

2040 norm=sign*SOR (temp* (2.0611786-5.72 
62204 / (temp*t11.640595))) 

2050 =norm*STDDEV+MEAN 

2060 : 

2100 DEFPROCbargraph (interval$) 

2118 IF interval%<Ø OR interval%>31 THE 
N ENDPROC 

2120 LOCAL I$ 

2130 FOR I$-3 TO 9 STEP 3 

2140 MOVE32* (interval$-16) ,bar$ (interva 
1$)+1%:PLOT1,24,Ø 

2150 NEXT I$ 

2160 bar$ (interval%) =bar% (interval%) +12 
2170 ENDPROC 

2180 : 

2200 ON ERROR OFF 

2210 MODE7:VDU23;11,255;0;0;0; 


2220 IF ERR-17 END 
2230 REPORT:PRINT" -at line ";ERL 


1200 DEFPROCdemo 

1210 samplesize-200 

1220 $-23:VDU5:REM LABEL AXES 

1230 FOR I$--4 TO 4:MOVE I$*128-48,-24: 
PRINT1ØØ+1%*2:NEXT I$ 


Normal Distribution Sampling 
Tolerance of resistors : 18 


Sonmeronts Ley i $9G36.5x> 


rejec 


98 189 182 104 106 100 


1240 FOR I$-10 TO 60 STEP 1Ø:MOVE Ø,1%* 
1248:PRINTI$:NEXT I%:VDU4 

1250 PRINTTAB (1,2) ; : INPUT"Tolerance of 
resistors : "tolerance 

1260 VDU19,2,4,0,0,0:GCOL1,2 

1270 reject=Ø 

1280 REM SIMULATE CONSTRUCTION OF COMPO 
NENTS 

1298 FOR component=1 TO 200 

1300 resistorl=FNnorm(12Ø,1.2*tolerance 
/3,RND (1)) 

1318 resistor2-FNnorm( 60,0.6*tolerance 
/3,RND (1)) 

1320 resistor3-FNnorm( 60,0.6*tolerance 
/3,RND (1)) 

1330 resistance=1|/(1|/resistorl+1/resist 
or2)+resistor3 

1340 IF resistance<98 OR resistance>1 42 
THEN reject=rejectt+1 

1358 PROCbargraph (INT ( (resistance-92)*2 


1360 NEXT component 

1370 PROCresults 

1380 ENDPROC 

1390 : 

14ØØ DEFPROCresults 

1418 PRINTTAB (1,4) "Components tested";S 
PC6;": ";samplesize 


1429 PRINTTAB (12,5) "rejected Sore) 
ect; "("; INT (reject/samplesize*1 000/19) ; " 
e)" 

1430 ENDPROC 

1449 : 

el 


| 
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— SUPERCHARGING 
—(5— THE MASTER 


If you are seeking the ultimate super 
fast machine, the Turbo upgrade for 
the Master 128 could be the answer. 
Peter Rochford has been trying to 
keep up with this latest wonder. 


With the launch of the new Master 128, 
Acorn have again provided a base machine 
that will satisfy the needs of many users, 
but to which you can add a choice of 
co-processor for those who need the extra 
power and facilities. 


The Model B allows the use of an Acorn 
6502 or Z8Ø second processor and those 
produced by independent manufacturers such 
as Torch. All of these are external and 
connect to the host computer via the Tube 
Socket. The Master allows the same, but 
in addition you can add an 8, 16, or 32 
bit internally mounted co-processor. 


The 8 bit co-processor has been dubbed 
the 'Turbo' by Acorn and retails for £125 
as opposed to £199 for the old external 
6502. It can be supplied already fitted to 


the Master or, as an upgrade kit 
comprising the Turbo board, six support 
pillars, a rather thin manual (13 pages) 


and a support disc. 


INSTALLATION 
Fitting the 6" x 6" Turbo board is 
simplicity itself and takes about five 


minutes. The ends of the board have very 
substantial rows of pins that plug into 
two sockets on the Master's main PCB. The 
addition of the support pillars gives you 
a very secure and stable installation, 
with no leads to connect or links to cut. 


The Turbo boasts some 21 chips and 
included amongst these are 64K of fast 
RAM, a boot ROM, Tube ULA and a CMOS 
65C102 microprocessor. The standard of 
construction, as one would hope from 
Acorn, is excellent. Once installed and 
with the lid back on the computer, you 
don't know the Turbo is there. Far better 
that the old 6582 second processor that 
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took up so much desk 


space and had a 


ridiculously short and uncooperative 


ribbon cable. 


Powering up the computer reveals no 
change in the start up message until you 
realise that the Master at this point does 
not know that the new addition exists. Two 
commands must now be entered. *CONFIGURE 
INTUBE to tell the Master to select the 
internal co-processor and a  *CONFIGURE 
TUBE to make it active. The reverse of 
these is *CONFIGURE EXTUBE to select an 
external co-processor such as a 65Ø2 or 
Z8Ø connected to the Tube socket and a 
*CONFIGURE NOTUBE to switch off either the 
internal or external processor depending 
on which is selected. All these parameters 
are stored by the Master's battery-backed 
RAM. Thus once you have re-configured your 
Master, it will always power up with the 
co-processor operational (similarly when 
pressing Ctrl-Break). 


MEMORY CONFIGURATION 

With the Turbo selected, the message 
‘Acorn Tube  65C102  Co-Processor' is 
displayed. At this point the current 
language, i.e. Basic, is copied across the 
Tube and located at &8ØØØ in the Turbo. 
Looking at Fig.l will best illustrate the 
Memory mapping of the Master and the 
Turbo. With the current language copied 
across to the co-processor the user has 
3Ø.7K of memory to play with. However, 
because the co-processor shares the MOS 
with the I/O processor the area from &CØØØ 
to &FFFF is vacant. To take advantage of 
this, Acorn have provided a version of 
Basic on the Turbo support disc called 
HI-Basic, which is assembled to run at 
&B800. This means that with HI-Basic 
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installed, the user RAM now 
available stretches from 
&8ØØ to &B8ØØ, giving 44K. 


The version of View that 
comes with the Master also 
copies across the Tube but 
Tt is  self-relocating. 
Because View is a smaller 
language than HI-Basic, it 
sits higher in the Turbo 
and leaves 48.3K of space 
for text. HI versions of 
various other ROM  lan- 
guages are also available 
to run in the co-processor 
such as Computer Concepts' 
HI-Wordwise and HI-Sheet. 
HI-Edit, a version of the 
Master's text editor, is 
supplied on the Turbo 


UP TO 16 x 16K PAGES OF SIDEWAYS ROM/RAM 
(4 PAGES OF RAM & 7 PAGES OF ROM FITTED) 


FIG I THE SYSTEM MEMORY MAP 


USED BY NON "HI" 
LANGUAGES 


166 K IF 
HI BASIC 


support disc. 


Any ROM that is written to Acorn's 
rules should work across the Tube and run 
with the co-processor. A full list of Tube 
compatible ROMs has been published in past 
issues of BEEBUG (last update in Vol.5 
No.1). As for other software, provided it 


follows Acorn's rules there is no reason 
why it should not work. 
THE TURBO IN USE 

So having got the Turbo and installed 


it, what can it be used for and what are 
the advantages? Well, we have already 
mentioned the extra memory available in 
View, for Basic, and other HI languages. 
As the name implies, the Turbo provides 
something else - SPEED! The Turbo runs at 
a clock rate of 4MHz compared to the 2MHz 
of the Master and Model B, whilst the old 
6502 second processor runs at a clock rate 
of 3Mhz. The 4MHz 65C1Ø2 microprocessor is 
the reason why the Turbo is equipped with 
64K of FAST RAM. 


Take a look at the table in Fig.2. You 
will see that the Master is already a very 
fast machine on the PCW Basic benchmark 
tests. It is three times faster than the 
standard Model B and slightly faster than 
the Model B with the old 6592 second 
processor. With the Turbo connected, the 
Master turns in a performance that puts 
many of the new 16 bit micros to shame. 
For example, the Master Turbo is around 
four times faster than an IBM PC on the 
PCW benchmarks. 
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MEMORY LOCATED IN 1/0 PROCESSOR 


MEMORY LOCATED IN CO-PROCESSOR 


Don't be  deceived though, Basic 
benchmarks are all right to give an 
indication of the differences in speed 
when the computer is set certain tasks. In 
reality, when running normal programs 
things can look quite different. Ones that 
require a lot of calculation and writing 
to the screen, such as for complex 
graphics, will show very significant 
increases in speed with a Turbo, On the 
other hand, a program that contains many 
timing loops or constantly accesses the 
filing system will not benefit much from 
the Turbo in terms of execution time. 


Running spreadsheets, databases and 
wordprocessors with the Turbo all show 
varying degrees of gain in speed, anda 
small increase in available space. With a 
spreadsheet such as ViewSheet, on the 
small tests that I performed, there were 


increases in speed up to 50$ when 
recalculating Using the excellent 
ViewStore database, I found that in 


general use, there is little gain in speed 
with the Turbo apart from faster screen 
scrolling. When performing any task using 
the utilities however, there was a marked 
increase due to the fact that the 
utilities reside in the I/O processor and 
do not occupy any of the Turbo RAM. This 
leads to less disc accessing during 
sorting and indexing. 


When using the wordprocessor View, the 
only really significant increase in speed 
is in the screen scrolling. With Wordwise 
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Plus there did not appear to be much of a 
difference at all when using the Turbo. 
On the Turbo support disc by the way, is a 
printer buffer utility that configures 24K 
of the I/O processor memory as an extended 
buffer. This is a most useful feature, 
particularly if you have a comparatively 
slow printer such as a daisy-wheel. 


If you are a games fan, the bad news is 
that to my knowledge there are few if any 
commercial games written to run using a 
co-processor. I believe Acornsoft are to 
release a version of Elite that utilises 
the co-processor and features full colour 
graphics and extra speed but I have yet to 
see it. Mind you, the mind boggles when 
one considers the possibilities for games 
written for the Turbo with its speed and 
available RAM. 


CONCLUSION 

With such an increase in space and 
speed, the Turbo provides some tremendous 
possibilities for the serious programmer, 
particularly for large and complex 


graphics programs. I can also see it being 
greeted with enthusism by schools and 
universities for specialist applications. 


FETERE ERE ST EEE ERE REE RENTER on 


Those who want extra space for 
word processing and an extra turn of speed 
when using databases and spreadsheets such 
as ViewStore and ViewSheet, may also be 
tempted to invest in one. 


I remember though, when the 6502 second 
processor was launched for the Model B. 
Many people rushed out and bought one even 
at its price of £200. I have spoken to a 
large number of 6502 owners who say that 
they are very disappointed with the lack 
of software support for it from Acorn. 
Apart from the applications already 
discussed in this review, there is little 
that has been released to take advantage 
of the potential of a co-processor. The 
CAD system BITSTIK was written to utilise 
a co-processor but that is of no use to 
the average user. Most of the old 6502 
co-processors in existence at the present 
I feel must lie idle a lot of the time. 


The Turbo scores over the old 6502 
apart from speed and its better way of 
connection to the host computer, in one 
other area - its price. At £125 it is much 
cheaper and this fact could make it far 
more successful than its predecessor by 
encouraging greater sales. If this happens 
then we may see much more software being 
written to take advantage of its enormous 
potential. Conversely, if Acorn or an 
independent software house released a 
program of wide appeal that took full 
advantage of the speed and space of the 
co-processors, I feel that would be enough 
to encourage many Master owners to dash 
out and buy the Turbo at £125. Perhaps 
this will happen with the promised new 
version of Elite. 


Personally, I am most impressed and 
excited by the possibilities of the Turbo 
and really hope that it receives the 
software support it needs and deserves. 


el 


PCW BASIC BENCHMARKS (Eight tests averaged out) 


65C1Ø2 
65C12 
65Ø2B 
6502A 


Master & Turbo 
Master 

Model B & 6502 SP 
Model B 


HI-BASIC 4 
BASIC 4 
HI-BASIC 2 
BASIC 2 


Note: Timings will vary slightly from machine to machine. 
Figure 2 
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Beebug Filer 
goes Graphic 


Mike Williams adds an option to the 
BEEBUG Filer, our data base 
program, providing a 
comprehensive and flexible 
graphical display for your data. 


BEEBUG Filer is a database management 
system described in BEEBUG Vol.4 Nos.6 to 
8. We have already provided one enhance- 
ment to the original program in the form 
of a mail-merge facility (described last 
month). We now present a completely new 
and separate program that will allow the 
contents of the datafiles you have created 
with Filer to be displayed graphically. 
This new program allows you considerable 
freedom in choosing an appropriate graph 
for your data, and includes several useful 
and practical features. 


THE FILER GRAPH PROGRAM 
The program listed with this article 
(FILERG) follows the same general struct- 


ure as the main Filer program (indeed 
several of the same procedures are 
incorporated in it), and it is command 


driven as before. The program uses mode Ø, 
and must be run with PAGE set to &14ØØ 
(unless using a Master 128 or a B+ with 
shadow memory). 


To describe the layout of a graph, the 
Filer Graph program uses the idea of a 


The commands recognised by the Filer 
Graph program are shown below. 


Open a data file 


GFORMAT Select a graph format 
GRAPH Draw a graph 

TITLE Specify title for graph 
PRINT Produce copy on printer 
COMMANDS List these commands 


Exit from this program 
Execute any * command 
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'graph format' file, very similar in 
concept to the 'format' file used to 
control printing in Filer. The graph 
format contains all the information about 


axes and scales. 


PRODUCING A GRAPH 

Let us suppose that we are using 
Filer to maintain a database containing 
the weather data comprising daily maximum 
and minimum temperatures for 1986. The 
datafile is called  TEMPS86 and contains, 
among other information, the two fields 
TMAX and TMIN. Assuming that we have 
already created suitable graph formats, 
producing a graph showing daily 
temperatures for, say, January 1986 would 
require the following commands: 

OPEN TEMPS86 

GFORMAT GRAPH] 

TITLE January 1986 

GRAPH 1,31 
Given a suitable format file this will 
produce a graph of daily temperatures 
throughout the month of January. If we 
also required a similar graph for any 
other month, say February, then the same 
graph format could be used by continuing 
the above sequence with: 

TITLE February 1986 


GRAPH 32,59 

The use of these | commands is 
straightforward.  GFORMAT selects a graph 
format, TITLE specifies any title or 
heading to be placed under the graph, 


while the GRAPH command actually initiates 
the drawing of the graph by giving the 
numbers of the first and last records to 
be included. The results can be seen in 
the illustrations. 
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If the GRAPH command is used without 
any record numbers then just the axes and 
scales are displayed. This is useful for 


checking that a graph format is correct 
before actually plotting the data. 
HARD COPY OUTPUT 

The PRINT command allows you to output 


any graph to a printer. The listing (at 
line 1679) contains the appropriate 
command for Printmaster. Change this to 
the version for your printer dump ROM, or 
to a call to your own printer routine. 


BEEBUS FILER - Graph Option 
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GRAPH FORMATS 

"^ The use of graph formats is central to 
the way in which the Filer Graph program 
produces a graph. A graph format is a one 
record file that you create with the 
original Filer program, very much in the 
Same way as you create print formats for 


use when printing out records. 


As listed, the Filer Graph program can 
display up to four data fields on the same 
graph. This could be increased, if you 
have sufficient memory, by changing the 
sizes of the arrays (var$, Min, Max, 
label$, Int) at line 1060. 


Using BEEBUG Filer, you could create a 
graph format for use with the file TEMPS86 
by proceeding as follows: 

CREATE GRAPH!/2 


OPEN GRAPHI 

ADD 

Confirm (Y/N): Y 
END 


The special form of the CREATE command 
used above will create a file of the right 
size with the name GRAPH] (or whatever you 
choose). The value 2 indicates that two 
data fields are to be displayed in this 
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example. We then open that file and add 
one record, the graph format, to it, 
confirm that the entry is correct and exit 
from Filer. If we have made no mistakes, 
we can now use this graph format with the 
Filer Graph program to produce a graph. 

Let us now look at the graph format 
itself. The record that we create will 
consist of a header line followed by one 
line for each of the data fields to appear 
on the graph. 


THE HORIZONTAL AXIS 
Taking the header line first, this 
consists of a list of numbers, followed 
optionally by some text, in the order: 
Min,Max,nl,n2,n3,n4/text 

The numbers to be specified here are: 

Min Minimum x value (usually Ø or 1) 

Max Maximum x value 

nl Number of data points to be plotted 

n2 Number of vertical lines (min 2) 

n3 First scale value 

n4 Interval between scale values 
The optional text provides a label or 
heading displayed below the x axis. 


All the information in this first or 
header line describes the x (horizontal) 
axis of the graph. The number of data 
points is the number of records that will 
be read to create the graph. To make 
reading the resulting graph easier you can 


specify any number of evenly spaced 
vertical lines to be drawn. You should 
always specify at least two, representing 


the left and right hand vertical axes. 


To mark off the the horizontal scale, 
you should specify the scale value of the 
first point to be so marked, and the 
interval between subsequent scale values. 
It is often advisable not to label the 
origin as any overlap of vertical and 
horizontal scale values here can be 
confusing to read. 


These numbers should be separated by 
commas as shown. If the optional text is 
included, then this is preceded by a '/' 
character, otherwise the '/' is omitted. 


THE VERTICAL AXES 


Each 
format deals with 
associated vertical 
though up to four data fields may be 
plotted, only two vertical scales are 
possible. The format of each such line is: 
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subsequent line of the graph 
a data field and its 
scale. Note that al- 


«data field>,Min,Max, label/conversion 
The name of the data field should be 
specified first, followed by the minimum 
and maximum values for the corresponding 
vertical scale and a label for that scale 
(not more than five characters). If the 
scale parameters are omitted then those 
for the previous data field will be used. 
The very first data field must have a 
scale specified though. 


The conversion string, and preceding 
'/' character, is optional but may be used 
whether a scale is included or not. This 
allows values as recorded in a datafile to 
be converted before being displayed on the 
graph. In the example above, TMAX and TMIN 
might be recorded in Fahrenheit but could 
be displayed in Celsius by including 
conversion factors of: 

(TMAX-32) *5/9 

(TMIN-32) *5/9 


SOME EXAMPLES 

The graph format GRAPH], referred to 
previously, was thus created as: 

1,31,31,31,5,5/Max and Min Temperatures 

TMAX , -20 , 30 ,C/ (TMAX-32) *5/9 

TMIN/ (TMIN-32) *5/9 
By specifying the right set of records 
with the GRAPH command, this one graph 
format could be used to produce a graph of 
daily temperatures for any month in the 
year. As another example, the following 
graph format will allow three months of 
data (90 data points) to be displayed on 
the one graph: 

1,91,91,4,5,5/Max and Min Temperatures 

TMAX , -20 , 30 ,C/ (TMAX-32) *5/9 

TMIN/ (TMIN-32) *5/9 


Although graph formats, like print 
formats, may seem complicated at first 
sight, time spent experimenting and 
getting to know their capabilities will be 
well worth while. We have also considered 
but one example; there are many others 
(sales figures, share prices, bank balance 
for example). 


FURTHER NOTES ON GRAPH FORMATS 

In general, you are likely to get the 
best and most accurate results by choosing 
ranges for horizontal and vertical scales 
which are multiples of 18. The Graph 
program will also cater for any missing 
values, if these are represented in your 
datafile by the value -9999, When the 
graph is drawn, any such values will be 
ignored and the graph drawn from the last 
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'good' point to the next 'good' point 
using a dotted line (though this feature 
may not always be very apparent. 


PROGRAM NOTES 


The Filer Graph program uses several 
procedures from the main Filer program. 
These should be copied from your version 
of Filer and added to the program listed 
below. The procedures used this way are: 


PROCtitle PROCinv 
FNvalidate PROCread 
PROCopen PROCstrip 
PROClistc PROCstar 
PROCwindowl PROCoscli 
PROCwindow2 


Once this is done you will also need to 
change 3 of the original lines as follows: 
326ØF$=p$:F=OPENUP (F$) : graph$-0 
332ØFORI =1TOf : INPUT#F ,p$ , på: field$ (I) =F 
Nstrip(p$,".") : NEXT 
6320PROCwindowl :CLG 


Memory space is extremely tight with 
this program. When typing the program in, 
do not add any extra spaces and do omit 
the lines with just REM statements or 


colons. Leave out also the space between 
the line number and the start of the 
program. These have been left in the 


listing to aid readability. If you have a 
program compactor (as in BEEBUGSOFT's 
Toolkit) then use this as well to produce 
a working version of the program. 


At all times, PAGE must be reduced to 
&14ØØ before loading and running this 
program, though on the B+ and Master 128, 
the use of shadow RAM can avoid all these 
potential problems. 


Copies of the notes for the main Filer 
program are still available on receipt of 
an A5 SAE to the St Albans address. 


1Ø REM BEEBUG FILER GRAPH Bl.0 

2Ø REM Author Mike Williams 
1ØØ MODE@:GCOLG, 1: VDU26: PROCsetup 
PROCtitle: PROCheader : ONERRORPROCer 


140 REPEAT: PROCcommand: UNTILexit$ 
160 PROCclose:VDU26:CLS:*FX4,0 
END 

200 : 

1000 DEF PROCsetup 

1028 LOCAL I:exit$-0:open$-0:graph$-0:V 
DU24,0;136;1279;924; 

1040 maxf=12:X=Ø:Y=Ø:w=1:FDR=256:TitleS 
=""sxlabelS="": *FX4,2 


 —————————————————— À— 
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1058 xscale=960: yscale=649:VDU29 , 160; 256; 
1068 DIMrecord$ (maxf,1) ,field$ (maxf) ,xd 
ata (5) ,var$ (3) ,Min (3) , Max (3) , 1abel$ (3) ,I 
nt(3),os 40 
1080 READ N:DIMcomS$ (N) 
1100 DATA 8 
1120 FORI=1TO N:READcom$ (I):NEXT 
1140 DATA OPEN,CLOSE,GFORMAT ,GRAPH, PRIN 
T 
11698 
1180 
1200 : 
1500 DEF PROCcommand 
1520 LOCAL command$,pm$ 
1540 REPEAT 
1560 INPUT LINE"-> " command$ 
1580 C=FNvalidate (command$) 


DATA COMMANDS , TITLE , END 
ENDPROC 


1600 IF C=Ø PRINT"Unrecognised command" 
1620 UNTIL C 

1630 IF C=1 PROCOpen (pm$) 
1640 IF C-2 PROCClose 

1650 IF C=3 PROCformat (pm$) 
1660 IF C-4 PROCgraph (pm$) 
1670 IF C=5 THEN *GDUMP 
168Ø IF C=6 PROClistc 

1698 IF C=7 Title$=pm$ 
17ØØ IF C=8 exit%=TRUE 
1870 IF C=99 PROCstar (pm$) 
1880 ENDPROC 

1890 : 


6000 DEF PROCclose 

6020 IF NOT open$ ENDPROC 

6040 PRINT"File closed - ";rec-1;" reco 
rds in use" 

6060 CLOSEF:open%=Ø:CLG 

6080 ENDPROC 

6100 : 

6500 DEF PROCformat (p$) :LOCAL F,I,J,p,n 
ame$,var$ 

6520 IF NOT open$ PRINT"No file open":E 
NDPROC 

6540 IFp$="" PRINT"No file given":ENDPR 

6560 F=OPENUP (p$):IF F=Ø PRINT"No such 
file":ENDPROC 

6580 INPUT4F,frec,I,I,ff:IFfrec-l PRINT 
"No graph format":ENDPROC 

6600 PRINT"Loading graph format ";p$:Fl 
$=p$ 

6620 PROCwindow] : PROChead (19,0, "GFormat 
: "+F1S,0,0,0) : PROCwindow2 

6640 PTR#F=FDR:FOR I=Ø TO ff-l:INPUT£F, 
p$:record$ (1,1)=FNstrip(p$,".") :NEXT I 
6660 pS=recordS (0,1) :p=INSTR (p$,"/") : IF 
p xlabel$=MIDS (p$ ,p*1) : p$=LEFTS (p$ ,p-1) 
6680 p$=p$+",":I=Ø:REPEAT:p=INSTR (p$,", 
") :xdata (I) =VAL (LEFTS (p$,p-1) ) : p$=MIDS (p 
$,p+1) :I=I+1:UNTIL p$="" 

6700 FORI=ØTOff-2:p$=record$ (I+1,1) :p=I 
NSTR (p$,"/") 
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672Ø IFp var$=MIDS (p$,p+1) :p$=LEFTS (p$, 
p-l) ELSEvar$="" 

6740 p$=p$+",":J=1|:REPEAT:p=INSTR (p$,", 
6760 IFJ=1 var§ (I)="VAL (record$ ("+FNf ie 
1d (LEFTS (p$,p-1) ) *",0) ) ":name$=LEFTS (p$, 
p-1) 

6780 IFJ=2 Min(I)=VAL (LEFTS (p$,p-1)) 
6800 IFJ=3 Max(I)-VAL (LEFTS (p$,p-1)) 
6820 IFJ-4 label$(I)=LEFTS (p$,p-1) : Int ( 
I) =Max (I) -Min (I) :A=I 

6840 J=J+1:p$=MIDS (p$,p*1) 

6860 UNTILpS="" 

6880 IFJ<5 Min(I)=Min(I-1) :Max (I )=Max (I 
-1):1abel$ (I)=label$ (I-1) : Int (I) 2Int (I-1 
) 


6900 IFvar$<>"" p-INSTR (var$,name$) : var 
$ (1) =LEFTS (var$,p-1) *var$ (I) +MIDS (var$,p 
*LEN (name$) ) 

6920 NEXT: graph3=—1 :CLOSE#F : ENDPROC 

6940 : 
11ØØØ DEF PROCgraph (p$) : LOCAL p,pl,p2 
11020 IF NOT graph$ PRINT"No graph forma 
t":ENDPROC 
11060 sl-xscale/(xdata (2)-1):s2-xscale/( 
xdata (3) -1) :s3=(xdata (4) -xdata (Ø) ) *s1:s4 
=xdata (5) *s1 
11Ø8Ø PROCgraphl:IFp$="" ENDPROC 
111ØØ p=INSTR(p$,","):IFp=Ø PRINT"Bad li 
mits": ENDPROC 
11120 pl-VAL (LEFTS (p$,p-1)) :p2-VAL (MIDS ( 
p$,ptl)) 

11148 IFpl«l OR p2>=rec PRINT"Bad limits 
": ENDPROC 

11160 IFrec<2 PRINT"No records in file": 
ENDPROC 

11180 PROCgraph2 (pl,p2) 

11200 ENDPROC 

11220 : 

12000 DEF PROCgraph!:LOCAL n,x,y:CLG:VDU 
5:n=xdata (4) 

12020 FORx=ØTOxscale STEPs2:MOVEX,Ø:DRAW 
X,yscale:NEXT 

12040 FORy=ØTOyscale STEP128:MOVEØ,y:DRA 
Wxscale,y:NEXT 

12060 FORx-s3 TOxscale STEPs4:v$-STR$ (n) 
:MOVEx-LEN (v$) *8,-12: PRINTv9:n=n+xdata (5 
):NEXT 

12080 FORy=ØTOyscale STEP128:yS$-STR$ (Min 

(Ø) +y*Int (Ø) /yscale) :MOVE-LEN (yS) *16,y+8 
: PRINTy$:NEXT 
121ØØ FORy=ØTOyscale STEP128:y$=STRS (Min 
(A) +y*Int (A) /yscale) :MOVExscalet+16* (4-LE 
N (y$) ) ,y+8: PRINTyS:NEXT 
12120 MOVE-8Ø-16*LEN (label$ (Ø) ) ,yscale: P 
RINT label$ (Ø) :MOVExscale+8Ø,yscale: PRINT 
labelS (A) 

12140 MOVE (xscale-16*LEN (xlabel$) ) /2,-52 
:PRINTxlabel$ 

12160 MOVE (xscale-l6*LEN (TitleS) ) /2,-84: 
PRINTTitle$ 18 
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Terry Hallard takes an enthusiastic 
look at the latest mouse and soft- 
ware, this time from Wigmore House. 
Is this set to give AMX a run for its 


money? 


Products : Megamouse £68.89 
The Artist £57.39 
(both together £114.89) 
Cadmouse £34.39 

Supplier : Wigmore House Ltd 
32, Saville Row, 
London, W1X 1AG. 


Unobserved by many people, a smart new 
mouse has recently entered the BBC market 
place. Its producers are very modest and 
do not seem to be mounting an attack upon 
AMX, rather the opposite. Wigmore House 
Ltd are taking a distinctly quiet approach 


with their Megamouse and its two 
accompanying software packages. 
MEGAMOUSE 

The design of the mouse is very 


different from the familiar chunky black 


AMX product. It actually LOOKS like a 
mouse - long, grey and sleek. 
Ergonomically designed, it fits the hand 


beautifully, with no cramped feeling. The 
buttons on the wedge-shaped front end fall 
exactly under the fingers. The ball, 


unlike the volished steel of its cousin, 
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(the latest 
AMX mouse is a new design which also uses 


is made of hard black rubber 


a similar black rubber ball) which will 
not slip on any surface - even glass! 


The mouse, attached to the Beeb by a 
metre of cable, glides around smoothly and 
works with all the AMX products that I 
have tried, except the original AMX Art 


package. 
CADMOUSE 

There are two accompanying software 
packages at present available from 


Wigmore. Cadmouse comes on disc and is 
geared principally for the Acorn DFS. An 
A5-sized 26-page handbook is supplied, 
with diagrams dumped from the program 
itself onto an Epson dot-matrix printer, 
which is the main type of printer that the 
program supports. Machine code dumps for 
other printers can be added by the user. 
The directions and explanations given are 
clear and readable, and the program is 
quite comprehensive. 


It is similar to many drawing programs 
available for the Beeb but has many 
ambitious extras. The working screen has 
two menus, an options menu consisting of 
boxed icons up the right hand side of the 
Screen, and a similar command menu along 
the bottom. This leaves a substantial area 
of the screen for the user. 


All the expected drawing features are 
there (using 4-colour mode 1 or finer, 
2-colour, mode Ø): the usual lines 
(freehand, dotted and rubber-banded 
straight ones) plus a  'corrected line’ 
(which straightens out lines where 
required, either horizontally or at 3Ø' 
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angular increments, automatically 
correcting errors in placement), an 
excellent 'centre line', and a 


sophisticated 'dimension line' function. 
There is a choice of open or filled 
geometrical plane figures - rectangle, 
circle or arc - and a polygon call which 
allows shapes of up to 8 sides, or 
complete ellipses. The technical drawing 
illustrating this review makes extensive 
use of these functions. 


There is a 'fill' option, whose 
textures can be complemented by 'palette' 
changes and extended by other commands. 
'Paint' allows the user to choose from a 
large number of brush widths and types or 
even an airbrush spray, while ‘'‘hatch' 
gives a wide choice of different filling 
patterns including 45 degree hatching and 
various useful combinations of dots and 
stripes. A couple of these can be seen in 
the aircraft picture. The screen dump, 
incidentally, is one of the fastest that I 
have come across. 


The only real criticism that I have is 
the absence of an 'eraser' function such 
as in the AMX packages. Instead, this 
means creating a special 'black filled 
rectangle' every time you want to remove a 
clanger (although immediately after an 
item has been drawn, pressing the right 
hand 'cancel' button will delete it). 


There are also three useful and quite 
sophisticated functions which rely on a 
window being created around a feature - in 
this instance the first aeroplane, which 
was drawn freehand. It was then  'dragged' 
around the screen until the best position 
was found. Then it was 'duplicated' to 
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form a pair and then one more was 
'Inverted' to give a wing-over attacking 
effect. All in all, I would say that this 
is a very useful CAD package, using the 
Beeb's graphics capabilities to the full. 


THE ARTIST 

Nice as Cadmouse is, it is 'The 
Artist' which is the real stunner. I don't 
know how many readers have seen on TV the 
nainframe Megabyte-gobbling package which 
allows cartoon film designers to create 
their products rapidly, especially 
backgrounds. The designer only has to 
define a flower once and he can 'spray' it 
around where needed. Other effects allow 
multiple branched trees to be quickly 
brushed in as can long freehand lines made 
up of adjoining lengths of different 
colours. Well "The Artist' not only lets 
the user do these things easily and more, 
it also lets you create simple animated 
pictures. 


The first demonstration I saw of this 
package swiftly put a waterfall on the 


Screen - then the water started to gush 
over the fall, rippling and splashing in 
the pool beneath! Another screen showed 


the black outline of a Frankenstein castle 
and a craggy path leading to it - then 
irregular flashes of lightning lit up the 
whole picture, showing detail and colour, 
only to plunge back into dark shadow again 
until the next flash! The effect is 
impressive, though difficult to describe 
adequately. You need to see it for 
yourself. 


The package contains a 16k ROM, 


utilities disc and handbook. The manual 
adopts a quite lighthearted approach 
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which, 
explanation of each function, 


while giving a neat, one page 
encourages 
the user to explore for himself the 
goodies on offer. Examples are given of 
how to obtain some special effects, but in 
the main you can get great fun out of just 
"fiddling around' and achieving results by 


accident. 


The Artist is menu driven, the main 
menu offering colour selection and a 
number of manipulating options which are 
called 'flags'. The commands range from 
the usual line, triangle, rectangle, 
circle and ellipse drawing, through to 
'fill' and many special effects. 


The flags are the real key to the 
program's versatility, allowing the most 
subtle and ingenious’ effects to be 
achieved. For example, areas of the screen 
can be repeatedly copied anywhere, normal, 
reversed or upside-down. However, copying 
a rectangle usually produces unwanted 
'corner bits', especially if copies are 
superimposed. Use of 'without' does away 
with all this. Using the 'special effects' 
menu, you can indicate any number of 
colours which will be ignored when 
copying. Thus if we have a shape to copy, 
other than a rectangle, 'without' the 
background colour allows only the shape to 
be copied and placed elsewhere. Similarly, 


"over" allows you to specify that, say, 
red and blue will not overlay white or 
green on the screen. Now any drawing 
option will cause the red and blue BUT NOT 
ANY OTHER COLOUR to appear to pass behind 
any existing white or green object. 


The ‘animation’ effect depends upon 


converting part of the screen into 
flashing colour. First the areas which 
will move are drawn in the 'static' 


colour, but with a mind to the right 
flashing colour eventually needed. This is 
Saved and then passed through a 'convert' 
program which changes them into flashing 
colours. It is then reloaded and the rest 
of the drawing put in - then an 
‘animation' rogram is appended. On 
booting up, the picture is drawn 
statically and then the flashing colours 
take over giving a very effective display. 


I have by no means covered all the 
possible effects, partly because I am 
discovering new techniques each time I use 
the package. All I can say is that I 
thoroughly recommend this program to 
anyone wishing to get some really stunning 
graphic output from the Beeb. Indeed, 
Wigmore can feel pleased with themselves 
that they have, like AMX, greatly enhanced 
the capabilities of the BBC micro. 

sa 
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12180 VDU4:ENDPROC 

12200 : 

13000 DEF PROCgraph2 (pl,p2) : LOCAL k,p,x, 
y,0ldx,oldy, I :k=Ø 

13020 FORI-0TOff-2:p-pl 

13040 PROCread(p,Ø) : o1dy-FNeval (I) : o1dx- 
ü 

13060 FORx-s! TOxscale STEPs1:p=ptl 
13080 PROCread(p,0):y-FNeval(I) 

13100 IFoldy<Ø oldx-x:oldy-y ELSE IFy>Ø 
MOVEoldx,oldy:PLOT5*k,x,y:oldx-x:oldy-y: 
k=Ø ELSEk=16 

13120 IFp>=p2 x-1000 

13140 NEXTx,I:ENDPROC 

13160 : 

13180 DEF FNeval (I )= (EVAL (var$ (I) )-Min (I 
)) *yscale/Int (I) 

13200 : 

20200 DEF PROCheader 

20220 PROCwindowl :CLG 

20240 IF open% THEN PROChead (Ø,Ø,STRINGS 
(8Ø," "),0,0,0) : PROChead (1,Ø, "File: "+F$ 
,0,0,0) : PROChead (39,0, "Number of records 
: ",rec-l,4,-1) 
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FILER GRAPH 


20250 IF graph% PROChead (19,Ø,"GFormat: 
"+F1S,0,0,0) 

20260 PROCwindow2: ENDPROC 

20280 : 

21000 
21020 
21040 
n 
210690 


DEF PROChead (x,y,msg$,n,w,flag) 
PROC inv (1) : PRINTTAB (x,y) msg$; 
IF flag PRINT SPC (w-LEN (STR$ (n) ) ) ; 


PROCinv (Ø) : ENDPROC 
21080 : 
21600 DEF FNfield(p$):LOCAL I:I-0 


21620 REPEAT:I=I+1:UNTIL p$-field$ (I) OR 
Df 

2164Ø =STRS(I) 

2166Ø : 

31ØØØ DEF PROCerror 

31010 IF ERR=17 THEN PROCheader: PRINT ' "C 


ommand aborted": ENDPROC 
31Ø12 IF ERR>189 AND ERR<2Ø8 REPORT: PRIN 
T: ENDPROC 

31020 ON ERROR OFF :PROCwindow2: REPORT: PR 
INT" at ";ERL 

31030 PROCclose:VDU26:*FX4,Ø 
31Ø4Ø END 


sal 
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DEBUG 


Wordwise 


PROGRAMS 


Wordwise Plus 
is deservedly 
popular, as is 
the writing of 
segment 
programs. This utility by 
P.L. Owen will come in handy 
when it's debugging time. 
INTRODUCTION 

The utility described in this article 
is a debugging tool for the Wordwise Plus 
programming language. It allows you to 
single-step through any Wordwise Plus 
program that you are testing, continually 
displaying the line to be executed next, 
the updated Wordwise segment and program 


screens, and the values of selected 
variables. 
In this respect it behaves similarly 


to BEEBUGSOFT's Sleuth, though it lacks 
many of the sophistications of that Basic 
debugger. Like Sleuth, this utility allows 
you to switch between displays of current 
program line and the values of selected 
variables, and a display screen. 


In Wordwise Plus there are two display 
Screens of interest: the program display 
Screen, showing anything that your program 
may have printed, and the currently 
selected segment on which your program may 
be working. 


This debugger allows you to observe 
both. During operation, a first press of 
the space bar gives a readout of selected 
variables, and prints the next program 
line to be executed, each line being 
prefaced with a reference line number. The 
second press shows the current program 
screen after execution of that line, and 
if that instruction prints no text to the 
Screen, you will see no change at this 
point, though the debugger issues a beep 
at each press as an audible cue. The third 
press of the  space-bar reveals the 
currently selected segment, and again you 
will see no change here unless the last 
program line acted upon the segment in 
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some way. A fourth press will take you 
full circle, displaying the next line to 
be executed together with selected 


variables, and so on. 


USING THE DEBUGGER 

To use the debugger, first type the 
program called DEBUGGER, listed below, 
into segment 6 of Wordwise Plus, but do 
NOT type in the accompanying line numbers 
which are for reference only. You should 
then save this to tape or disc. 


Next, install the program to be 
debugged into the Text area. You will need 
to check that the program has no lines 
greater in length than a full screen line, 
and that the first program line starts at 
the very start of the Text area. While you 
are experimenting with the debugger, it 
will be as well to install a fairly simple 
program for starters. 


WORDWISE DEBUG 


C COMPILE SINGLE STEPPER 
D DISPLAY SOURCE PROGRAM 


E EXIT TO SOURCE PROGRAM 


Now press Shift-f6 to run the 
debugger. You should see a menu appear as 
in the illustration. Option D allows you 


to view (or print out) the program to be 
debugged with line numbers added for 
reference. 


Option E will simply Exit to the Text 
area. It is option C which does all the 
work. If you select this you will hear a 
series of beeps, one for each of your 
program lines, as the debugger copies them 
into Segment 7, after first clearing that 
area. In between each line of your copied 


code it inserts two other lines, and 
appends a block of code at the end. this 
produces a 'compiled' version of your 


segment program, with extra code added to 
allow single-stepping through the program. 
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Once the compilation is complete, you will 
be prompted to begin single-stepping. If 
you answer with "Y", then the compiled 
program in Segment 7 will be automatically 
run. This will initiate single-stepping, 
and you will see the first line of your 
program printed in a window at the base of 
the screen, along with the values of 
selected variables (A%, B% and AS 
initially). Further presses of the space 
bar will have the effect described before. 


Once the last line of your program has 
been executed, you will be left in the 
currently selected segment. To re-run the 
debugger, you simply press Shift-f6. If 
you do this you will see that the debugger 
always makes a fresh compilation before 
commencing to single-step. This avoids the 
problems that would arise if the compiled 
version of your program differed from that 
held in the Text area. But if you have 
made no changes, you can restart 
single-stepping with Shift-f7. 


SELECTED VARIABLES 

You will notice that the selected 
variables displayed by the debugger during 
a single-stepping run are A$, B$ and AS. 
To alter these, you should change the 
occurrences of A%, B% or AS on lines 81, 
82 or 83, as appropriate. 


RESTRICTIONS 

There are very few restrictions on the 
program to be debugged in this way, but it 
must clearly NOT use the same segments (6, 
7 and the Text area) or the same variables 
as the compiled debugging program, 
otherwise confusion will result. 
Fortunately the number of variables used 
by the debugger itself has been kept to 
just four. They are X$, Y$, 7$ and Z$. If 
your program uses any of these, you should 
either globally alter them in your own 
program or in the debugger. In the latter 
case, this will ensure that they do not 
appear in the compiled debugging program. 
You do not need to avoid the additional 
variables used in the compiler itself 
(such as B$, C% etc). These do not appear 
in the compiled program, am will 
therefore cause no problems at run time. 


HINTS 

If your program uses the GET function, 
single-stepping using the space-bar will 
always return character 32 (space). But 
the debugger allows you to use any key to 
single-step. Therefore, simply use the key 
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corresponding to the required response to 
the GET that you are trying to trace. Thus 
if you use the debugger on itself, 
pressing "E" instead of the space bar will 
eventually take you to the EXIT option on 
the menu. You cannot of course debug the 
Compile option because of the inherent 
clash of segments. 

mccc 77 


1 REM WORDWISE DEBUG 

2 REM VERSION Ø.3 DEG 

3 «START 

4 VDU7 

5 — BS=CHRS (13) 

6 CLS 

7 -vbU 31,4,6,134,141 

8  P,"WORDWISE PLUS DEBUG" 

9  VDU31,4,7,134,141 

180  P."WORDWISE PLUS DEBUG" 

le ee 

12 "B, 

13: p: 

14 _ VDU131 

15  P."C  COMPILE SINGLE STEPPER" 
16 P. 

17 _ VDU131 

18  P."D DISPLAY SOURCE PROGRAM" 
19 P. 

20  vDU131 

21 PIE EXIT TO SOURCE PROGRAM" 
29 Pi 

23  *FXl5 

24 — CS=GCKS 


25 IF C$="C" THEN GOTO COMP 
26 IF C$="D" THEN PROC DISP 
27 IF C$="E" THEN GOTO EXIT 
28 GOTO START 


29 

30 ` .COMP 
31 Xx$-l 
32  M$-2 


33 SELECT SEGMENT 7 
34 CURSOR TOP 


35  FKEY 3 
36 CURSOR BOTTOM 
37  FKEY 3 


38 DELETE MARKED 

39 CURSOR TOP 

40 SELECT TEXT 

41 CURSOR TOP 

42 REPEAT 

43  ZS$-GLTS$ 

44 SELECT SEGMENT 7 

45 CURSOR TOP 

46 CURSOR DOWN M$ 

47 TYPE "X%="+STRS (X3)+BS 
48 TYPE "PROCNinst"+B$ 
49 TYPE Z$+B$ 

50 SELECT TEXT 

51 CURSOR TOP 
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52 CURSOR DOWN X$ 

53 X%=X3+1 

54 M=M3+3 

55 UNTIL EOT 

56 REM ADD PROCNinst TO TRACER 

57 | SELECT SEGMENT 7 

58 TYPE ".Ninst"+BS 

59 TYPE "IF X%>1 THEN Z%=GET"+BS 

60 TYPE "VDU7"+BS 

61 TYPE "IF X%>1 THEN DISPLAY"+BS 
62 TYPE "IF X%>1 THEN Z3=GET"+BS 

63 TYPE "VDU7"+B$ 

64 TYPE "Y3=?&67-&30"+BS 

65 TYPE "SELECT TEXT"+8$ 

66 TYPE "CURSOR TOP"+BS 

67 TYPE "DOTHIS"+BS 

68 TYPE "CURSOR DOWN"+BS 

69 TYPE "TIMES X%"+B$ 

70 TYPE "CURSOR UP"+B$ 

71 TYPE "ZS=GLTS"+BS 

72 TYPE "CLS"+BS 

73 TYPE "VDU28,Ø,24,39,16"+BS 

74 TYPE "DOTHIS"+B$ 

75 TYPE "VDU129,157,134,13"+BS 

76 TYPE "P."+BS 

77 | TYPE "TIMES 7"+BS 

78 TYPE "VDU28,3,24,39,16"+BS 

79 TYPE "P.STRS(X3)+"" ""+Z$"+B$ 
80 TYPE "P."+BS 

81 TYPE "P.""A$ = ""+STRS (AS) "+BS 
82 TYPE "P.""p$ = ""+STRS (BS) "+BS 
83 TYPE "P.""AS = ""+aS"+BS 

84 TYPE "VDU26"+BS 

85 TYPE "Z%=GET"+B$ 

86 TYPE "VDU7"+B$ 

87 TYPE "SELECT SEGMENT Y$"+BS$ 

88 TYPE "ENDPROC"+B$ 

89  VDU7,7,7 


S AP. 

91 P. 

92  VDU134 

93  P."CODE IS COMPILED" 
94  VDU134 


POINTS ARISING POINTS ARISING POINTS ARISING POINTS 


BEEBUG FILER (BEEBUG Vol.4 Nos.6 to 8, Vol.5 No.1) 


P."BEGIN SINGLE STEP ? (Y/N)" 

Z$-GET 

IF Z%<>89 AND Z%<>121 THEN GOTO START 
*FX15 

0. ("FX138,0,151") 

END 


.DISP 

H$-FALSE 

PRINT 

VDU131 

PRINT "HARD COPY? (Y/N) "; 
.ENTER 

C$=GCK$ 

IF C$="Y" THEN H$-TRUE 
IF C$="N" THEN VDU 14 
IF C$<>"N" AND CS<>"Y" THEN GOTO ENTER 
SELECT TEXT 

X$-1 

CURSOR TOP 

CLS 

IF H$ THEN VDU 2 
REPEAT 

NS=STRS (X%) 

P. NS; 

DOTHIS 

pu Ns 

TIMES 5-LEN N$ 

P. GLT$ 

CURSOR AT Ø 

X$-X241 

UNTIL EOT 

VDU 3,15 

P. 

P."Press any key" 
CS=GCK$ 

ENDPROC 


«EXIT 

VDU7 

SELECT TEXT 
DISPLAY 


END =] 


A small bug has emerged in the sort routine. Change lines 8980 and 9ØØØ as follows: 
8980 R=Ø:REPEAT:R=R+1:UNTIL o$=field$ (R) OR R=f 
9000 IF R-f AND p$<>field$(R) PRINT"No such field":ENDPROC 
A similar bug also exists in the FNfield function which can be corrected by changing 


the following two lines: 


21620 REPEAT:I=I+1:UNTIL p$=field$(I) OR I=f 
21640 IF I-f AND p$<>field$(I) THEN =" " ELSE =record$(I,R) 


The mail-merge feature described last month also led to a small bug being introduced 
into the display of records on the screen. Change line 4980 as shown: 


4980 IF I<end AND flag=Ø THEN G=GET 
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MS KID =Ø 


Many Beeb owners are 
upgrading to Acorn’s 


MASTER new Master series. We 
SERIES start our own Master 
series by taking a look 
Opening up | at private RAM with 
the Private 
RAM Thomas Nunns. 
JEEP OE e| 


Programming the ten function keys can 
remove much of the routine typing needed 
when a program is being written or used. 
The function keys can include programming 
instructions - RENUMBER, MODE 135, LIST - 
filing system commands -  *COMPACT or 
*FORM 80 Ø 2 - or software instructions 
such as printer codes for use with a 
wordprocessor. 


With both the Master and the older 
Model B/B* the *KEY command can be used to 
program the function keys in Basic. On the 
older BBC micro the unexpanded function 
key definitions are held in main memory 
between &BØØ and &BFF, so to save them as 
a separate file it is only necessary to 
type *SAVE filename? BØØ BFF, and they 
can then be reloaded, without 
re-programming, using *LOAD «filename». 


On the MASTER things are not so 
simple. Function key definitions are no 
longer held in main memory but in the 
so-called 'Private RAM' which sits between 
&8000 and &DFFF. The allocation of memory 
in this sideways RAM area is shown in the 
table below. 


MASTER 128 Private RAM Usage 


&8000-&83FF 
&8400-&87FF 
&8800-&88FF 
&8900-&8FFF 
&C000—&DCFF 
&DD0O-&DFFF 


Function key buffer 

VDU workspace 

VDU variables and workspace 
Character definitions 

Paged ROM workspace 

MOS workspace 


Acorn say that this 'Private RAM' 
should not be used directly, and so they 
have not provided any read and write calls 
to access the area directly. This makes 
the direct saving and loading of the 
function key definitions awkward. It would 
be possible to save then by using the 
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*SHOW command and spooling the results to 
a file: 


*SPOOL keys 

FOR C$-0 TO 15 

OSCLI ("SHOW "+STR$(C%)) 
NEXT 

*SPOOL 


But to reload them the file would have to 
be read in a character at a time and a 
check made for the beginning and end 
quotes of each definition before using a 
OSCLI ("KEY "+ ..... ) command. 


However, there is another 'illegal' 
way. The Operating System sees the Private 
RAM as a ROM when bit 7 of the ROM select 
flag at &F4 is set. By setting the ROM 
select flag and its copy in SHEILA to 128, 
the Private RAM can be written to. In 
addition, by using the (undocumented by 
Acorn) Operating System Read ROM routine 
(OSRDRM) , the Private RAM can be read as 
ROM number 128. 


SAVING THE DEFINITIONS 

Program 1 saves the entire function 
key buffer in the Private RAM (from &8ØØØ 
to &83FF) to a file. By saving the whole 
area the flags held at the beginning of 
the function key buffer are also saved. 
The Private RAM is accessed by setting the 


current ROM flag to 128 (line 218). The 
routine then reads the bytes fram the 
Private RAM into main memory (&7ØØØ to 


&74ØØ) as if it were a sideways ROM, using 
the Operating System Read ROM (OSRDRM) 
routine at &FFB9 (see later about use of 
main memory). Once the bytes are in main 
memory they are saved to a file (line 69). 


PROGRAM 1 - SAVING THE KEYS 
1Ø MODE7 
20 INPUT"Filename for definitions",f$ 
30 DIM mc 1900 
40 PROCass 
50 CALL mc 
60 OSCLI ("SAVE "+£S+" 7000 7400") 
70 END 
80 DEFPROCass 
90 FOR o$-0 TO 2 STEP2 


190 P%=mc 

118 [OPT o$ 

120  STZ &80 N set store at &7ØØØ 
138 LDA #&7Ø 

146 STA &81 

150 LDA #580 \ high byte for OSRDRM 
160 STA &F7 

176 .four 
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180 LDY #0 


198 .loop 
200 STY &F6 N low byte for OSRDRM 
call 


210 LDY #128 \ ROM number 128 
220 JSR &FFB9 \ call OSReaDRoM 
230 LDY &F6 \ get result 


240 STA (&8Ø),Y \ store byte in main 


250 INY \ memory for four 
260  cPY #0 N pages 

270 BNE loop 

280 INC &81 


290 INC &F7 

300 LDA &F7 

310 CMP #&84 
320 BNE four 
330 RIS 

340 ] 

350 NEXT 

360 ENDPROC 


RE-LOADING THE DEFINITIONS 

Program 2 restores the function key 
definitions by loading them into main 
memory and then transferring them to the 
Private RAM. Whereas it would be quite 
easy to save the keys a byte at a time 
without using main memory, this is not 
easy when reloading the definitions as the 
Private RAM occupies the currently 
Selected ROM slot. To put back the keys a 
byte at a time, the Private RAM and the 
DFS ROM would have to be paged in and out 
alternately. This might sound easy but 
there are a number of bytes which would 
have to be saved and replaced in the MOS 
workspace and in SHEILA to make it work. 
Instead &4ØØ bytes of main memory are used 
as a buffer, and the final lines of the 
code (360-440) restore the Basic pointer 
and recall the Basic ROM. This use of main 
memory may or may not be acceptable in 
some cases. Once back in Basic, any other 
language, such as View, can be called 
without losing the definitions. 


PROGRAM 2 - LOADING THE KEYS 

1Ø MODE7 

20 INPUT"Filename of definitions",f$ 
30 DIM mc 100 

40 PROCass 

50 OSCLI("LOAD "+£$+" 7090") 

60 CALL mc 

70 END 

80 DEFPROCass 

90 FOR o$-0 TO 2 STEP2 
1800 P$-mc 

118 [OPT 0% 
120 STZ &80 
130 STZ &82 
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N &8Ø and &82 are 
N pointers for PRIVATE 


149 LDA #870 N RAM and main memory 
150 STA &81 N respectively. 

160 LDA #&80 

170 STA &83 

180 LDA #128 \ set active ROM 

190 STA &F4 N flag and its copy 
200 STA &FE30 N in SHEILA to 128. 
210 .four 

220 LDY #9 

230 .loop 


240 LDA (&80),Y \ move from Private 
250 STA (&82),Y N RAM to main memory 
2 N a byte at a time. 
270 CPY #0 
280 BNE loop 
290 INC &81 
300 INC &83 
310 LDA &81 
320 CMP #874 
330 BNE four 
340 LDA #&97 
350 LDX 430 
360 LDY #&ØC 
370 JSR &FFF4 
380 LDA #&0C 
39Ø STA &F4 
400 LDA #&8E 
410 LDX H&ØC 
420 JSR &FFF4 
430 RTS 

440 ] 

450 NEXT 

460 ENDPROC 


N reset ROM latch 
N in SHEILA to 
N Basic ROM. 


N reset latch at &F4 
N to Basic ROM. 
N do *BASIC 


As the programs stand, they must be 
loaded and run. This is both for 
simplicity and so that their workings may 
be more easily understood. Those with the 
wisdom and the will could easily alter 
them so that the code is assembled at 
&75ØØ and *SAVED. This would allow the key 
definitions to be saved and loaded with a 
*RUN <filename> while another Basic 
program remains uncorrupted in memory 
below &7ØØØ. Even so, after using the 
re-load code an OLD will have to be issued 
to reset the Basic pointers. To do this 
the few Basic lines at the start of each 
program would also have to be recoded in 
assembler. For the really clever, the 
re-load code can be *SAVEd along with the 
definitions and a suitable execution 
address. This enables the keys to be 
reloaded with a single disc access! ES] 


If you have a Master then you may be 
able to contribute to this series. 


Please write to the editor with details 
of any relevant programs or articles. 


PASSING ARRAYS TO PROCEDURES 


Although BBC Basic is one of the best, 
its procedures are still quite limited 
when it comes to passing parameters. 
John Skingley adds the power you 


need. 
It is an often felt limitation of 
Basic, that the RBEFB's procedure and 


function calls do not permit arrays to be 
passed as parameters, nor do they allow 
parameter values to be passed back to the 
calling routine. Functions do of course 
return values, but even these can only 
return one value at a time. Both of these 
limitations may be overcome by the methods 
described here. 


The two main methods of passing 
parameters to procedures are often 
referred to as "by value", and "by 
reference", BBC Basic uses the first 


method only. 


Passing parameters by value involves 
copying the contents of the variable heli 
in the global variable space, into the 
local data space for the procedure, whero 
it is treated just like any other local 
variable. If the variable is changed in 
value, only the copy stored in this local 
data space is changed, so that when th> 
procedure terminates, the changed value is 
lost (i.e. the entry value is retained). 


To pass an array to a procedure by this 
method, the whole array would have to be 
copied into the local data space. This 
would take a lot of time and memory space. 


In the second method, passing by 
reference, only a pointer to the variable, 
stored in the global variable space, is 
passed to the procedure. In this way the 
procedure may 'refer' to this global 
variable and not only read, but also 
change its value. However, (unlike passing 
by "value" where if the value of a 
parameter was changed within the procedure 
it was unavailable outside) the global 
variable used as a parameter is actually 
changed - its value is available for use 
by the calling routine after the procedure 
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has finished with it. This is the method 
we would need to use if we wanted, for 
example, to pass an array to a procedure 
which sorted the array into order, or 
carried out some other operation on it. 


BBC Basic has no inherent operation to 
specify that we require parameters to be 
passed by reference, unlike many other 
high level languages. However, the BEEB 
has a simple facility for storing data in 
memory, and accessing this by the use of a 
pointer. This is set up with the "DIM p 
4" statement, which allocates, in this 
case, 4 bytes of memory for the data, 
where p holds the address of the starting 
memory location used. In other words p is 
the pointer to the data. Values may be 
entered into this location by the use of 
the indirection operators, with statements 
such as ?p=34, and retrieved with, for 
instance, PRINT ?p. The ? indirection 
operator only deals with single bytes. The 
! indirection operator is designed to 
handle 4 bytes and thus is ideal for 
handling integers. In BEEBUG Vol.3 Nos. 7 
& 8 the topic of indirection operators was 
covered in detail, I would strongly 
suggest that you read these after having 
read this article if you are in any way 
uncertain of their use. 


Using this method of storing variables, 
we can pass the pointers as parameters in 
procedure calls, carry out the required 
action on the data pointed to, and still 
access the changed values afterwards. We 
can even create arrays of variables, (or 
more complicated data structures), and 
pass their pointers to our procedures. 
This may sound complicated, but an 
examination of the two programs in the 
example that follows, should indicate how 
straightforward this is in reality. 


EXAMPLE ONE 

To illustrate the use of such 
variables, and to show how they can be 
passed to procedures look at the two 
near-identical programs: 


PROGRAM ONE: 
20 Q$-6 : b=Ø : c=Ø 
30 FOR a=1 TO 19 
40 PROCcalculate (a,b,c) 
50 PRINT a,b,c 
60 NEXT : END 
100 DEFPROCcalculate(a,b,c) 
11Ø b=a*a : c=a*b : ENDPROC 
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PROGRAM TWO: 
1Ø DIM a 4,b 4,c 4 
20 @%=6 : !b-0 : !c-0 
3Ø FOR !a-1 TO 10 
40 PROCcalculate (a,b,c) 
50 PRINT !a,!b,!c 
60 NEXT : END 
100 DEFPROCcalculate (a,b,c) 
119 !b-!a*!a : !c=!a*!b : ENDPROC 


Both programs are intended to produce a 
table of numbers, squares, cubes and 
Square roots. However, only the second one 
produces the desired results. Notice how 
we can easily substitute !a for a, !b for 


b, etc, while we can of course use 
meaningful names such as square. !cube 
etc. There is nothing frightening about 


the ! and ? operators once you have gained 
familiarity with them. Note that the 
program would have worked perfectly with 
the ? operator, until the numbers stored 
exceeded 255 as the ? operator handles 
only a single byte. 


ARRAYS 

A single dimensional array can be 
thought of simply as a list. If we wish to 
hold a list of integers we must reserve 
four bytes for each one. This is handled 
automatically if you use DIM A%(1Ø) - 
using this method you do not need to do 
any further work if you wish to fill the 
array with random numbers and print them. 
The program on the left does just that. 


18 DIM Aŝ (10) 
20 FOR i=Ø TO 10 20 FOR i-0 TO 10 

30 A% (i) =RND (1090) 30 A!(i*4) =RND (1ØØØ) 
40 PRINT A%(i):NEXT 40 PRINT A!(i*4) :NEXT 


1Ø DIM A 44 


To produce an identical array using the 
pointer system you must first allow each 
of the 11 integers (Ø-1Ø) the four bytes 
they require, i.e. 44 bytes and declare 
this as DIM A 44, To access the elements 
of the array you must note that: 


Element Ø is held in 4 bytes starting at Ø 


1 4 
2 8 
i i*4 


The program on the right performs an 
identical task to that on the left. Note 
that the format A!(i*4) is identical to 
!(A+i*4) in other words read four bytes 
starting at address (Ati*4). 


CONCLUDING EXAMPLE 
In this example the program fills two 
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arrays y and z with random numbers and 
displays each. You select which array you 
wish to sort. The program sorts that array 
only and prints both arrays to prove it 
has sorted only the array requested. 


10 Reserve adequate memory for two arrays 
(in fact DIM y 40 will do if n=1Ø) and 
also for two working variables b and c. 
Set max no of elements and PRINT format 
Print headings 
Fill arrays with random numbers 
Print the filled arrays 

90-120 Input which array is to be sorted 

130 Sort selected array only 

140 Print both arrays 

PROCEDURES: 

19020 Fill array with random integers 

2000 Print array in specified row & column 

3000 Bubble sort 

4000 Swapping contents of two variables 


16 DIM y 100, z 100, b 4, c 4 

30 n=1Ø:0%=6 

60 CLS:PRINT"ARRAY Y"TAB (20) "ARRAY Zz" 

70 PROCgenerate(y):PROCgenerate (z) 

80 PROCprint(y,0,1) :PROCprint(z,20,1) 

99 PRINT TAB(0,11)"Sort which array 'y' o 
EZ 9 TABS. IDS 

100 arr$=CHRS (GET AND 223) 

110 IF arr$<>"Y" AND arr$<>"Z" THEN 90 
120 PRINT arr$ 

130 IF arr$="Y" PROCsrt(y) ELSE PROCsrt(z) 
140 PROCprint(y,0,12):PROCprint (z,20,12) 
990 END 


19000 DEFPROCgenerate (a) 

1018 FOR i=] TO n 

a! (1*4) -RND (180000) 

1040 NEXT i : ENDPROC 

1060 : 

2000 DEFPROCprint (a,column,row) 

2010 FOR i=l TO n 

PRINT TAB (column, itrow-1)a! (i*4) 
2030 NEXT i : ENDPROC 

2050 : 

3000 DEFPROCsrt (a) 

3010 swapped=FALSE : m=n-1 

3020 REPEAT 

FOR i=l TO m 

3040 IF a! (i*4)>a!((it1)*4) PROCswap( 
a,i*4, (i+1)*4) 

3050 NEXT i 

3051 m=m-1 

3060 UNTIL NOT swapped OR m=] 

3070 ENDPROC 

3080 : 

4000 DEFPROCswap (a,b,c) 

4010 t=a!b:a!b=alc:al!c=t 

4015  swaoped-TRUE : ENDPROC sj 
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Never at a loss for words, Alan 
Webster has been testing out the 
latest speech add-on from Computer 
Concepts, with a sideways look at 
Superior Software's own speech 
system. 


Product : SPEECH! 

Supplier : Superior Software 
Regent Ho., Skinner Lane, 
Leeds 7. (0532) 459453. 

: £9.95 (tape) 
£11.95 (disc) 


Price 


Product : Text to Speech 

Supplier : Computer Concepts 
Gaddesden Place, Hemel 
Hempstead, Herts., HP2 6EX. 
(0442) 63933 

: £39.90 excl. speech processor 
£10.00 speech processor 


Price 


One of the major advantages that the 
Computer Concepts' Speech package had 
over many others on the market was that 
it used the TMS522Ø speech chip, giving 
much clearer speech. It was not one of 
the easiest of systems to use, however, 
as text had to be typed in using phonemes 
(see review in BEEBUG Vol.4 No.6). 
Although this was adequate for most 
purposes, it made it difficult to encode 
phrases. Now Computer Concepts have added 
the "Text to Speech' (TTS) ROM to the 
original speech package to provide the 
‘SPEECH SYSTEM'. 


The new package contains both the 
Speech ROM and the new TTS ROM, but as 
before, it is essential that the TMS552Ø 
speech chip is fitted as well. If you 
already have the original Computer 
Concepts Speech ROM, an upgrade service 
is available (from Computer Concepts) for 
£11.75, but this then brings the total 
cost of the system to over £55. 


The main feature of TTS is a *SAY 
command which will pronounce any text 
string that follows. This is much easier 
to use than building up a set of words by 
using phonemes. For example, '*SAY Hello 
there" is far easier than the '*UTTER <1> 
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H +e L O DH *ea' command needed 
previously. You can also set the TTS into 
one of three different modes, to 
pronounce words, spell them out, or 
pronounce lower case words and spell out 
upper case words. The TTS RO itself 
takes 1K of memory as workspace. 


Other commands included are  *PHONS, 
which acts the same as *SAY, but lists 
the phonemes needed to, construct the 
speech. *SAYIP allows the TTS to 
pronounce any text entering the current 
input stream, such as the keyboard or 
RS423 interface, both of which offer some 
interesting possibilities. 


*SAYPRT diverts the text from a 
printer and pronounces it. In this mode, 
TTS can be switched on and off using 
VDU 2 and VDU 3. There are also commands 
to pronounce the text on screen (similar 
to a text printer dump) and to pronounce 
a section of memory or file. 


A nice feature of the TTS is that 


various standard abbreviations are 
pronounced fully, "Mr. Williams' 
sounding as "Mister Williams' for 
example. 


Superior Software's Speech! adopts a 
completely different approach to speech 
generation and in this respect is a much 
more innovatory piece of software. In 
fact, it does not use the Beeb's speech 
system at all. The whole thing is handled 
in software and a stream of data is 
pushed out through the Beeb's sound 
generator. As a consequence, this package 
is considerably cheaper, costing only 
£9.95 as opposed to nearly £50. 


In spite of the very  cunning and 
unorthodox route to speech generation 
taken by Superior, the results are really 
quite good, though the clarity does not 
quite match up to Computer Concepts' 
chip-based speech. Speech! also uses a 
*SAY command for ease of use, but does 
not offer as many star commands as 
Computer Concepts. 


If you are looking for a speech 
system simply for home entertainment then 
with its dramatically lower price Speech! 
must be the better bet. If you seek a 
serious speech system, where speech 
quality is paramount, then the Computer 
Concepts product is the one to go for. S] 
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Computer Concepis Roms 


NEW BEEBUG PRICES 


Inter Sheet — The Spread Sheet 


RRP 55235 NOW £47.70 
Inter Chart — Graphs & Plotting 
RRP E36. 00i n NOW £29.90 
Disc Doctor — The Disc Rom 

RRP C33 35 NOW £28.00 


Printmaster — The Printer Rom 
(Specify Epson or Star) 


RRP cien: NOW £28.00 
Wordwise — 

Original Wordprocessor 

RRP $46.00............... NOW £29.00 


Wordwise Plus — 
The New Wordprocessor 
RRP 556050 hv NOW £46.00 


Hi-Wordwise Plus — Disc... £5.75 
(Requires Wordwise Plus) 


Hi-Intersheet — Disc ........... £5.75 
(Requires Intersheet) 


Accelerator — 24K Compiler 
RRP £64.40 ................ NOW £56.00 


Graphics Rom — 
BBC Extended Graphics 


RRP $33.95 ..........« NOW £25.00 
Speech Rom — Speech System 
RR £33.95. dues NOW £28.00 
(Requires Acorn speech chip 


available at extra £10.00 only 
if ordered with Speech Rom) 


All Prices Include VAT and Post. 


For a full Specification of all Roms send an A5 SAE marked Rom Spec. 


Members, please note that we will match any currently advertised price in 
Acorn or Micro User for these products from recognised dealers. 


All orders despatched within 24 hours of receipt at St Albans. 
Buy more than 1 Rom and get £1.00 off each. 


| COMPUTER CONCEPTS ROM ORDER FORM | 


Please send me price 


BE EB 
SoFi 


TOTAL ENCLOSED 


Credit Card orders may be telephoned to (0727) 40303 EN 
Prices include post, packing and VAT, overseas members send the same 


BEEBUGSOFT. 


Send to: “Rom Offer" Beebugsoft, PO Box 50, Holywell Hill, St. Albans, Herts. AL1 3YS 
To avoid delay please do not send this to the High Wycombe address, please do not combine 
orders for other BEEBUGSOFT products with this order. 


Name. 
Address. 


Membership No. 


Ð 


| 
| 
| 
| 
| 
| 
| 
| 
| amount to include extra post but not VAT. Please make cheques payable to 
| 
| 
| 
| 
| 
| 
| 


Access/Visa Card No. ELILTITLELLILTIITITIJ Expiry date 
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ICON MASTER FROM BEEBUGSOFT 


Icons are graphical 
representations of functions. More 
powerful mini and micro 
computers use icons in place of 
the more traditional menus as a 
front end for many of their 


programs. 


For example, an icon of a dustbin 
could be used to represent the 
*DELETE command, or a clock to 
ask for the time. Icon Master 
enables you to add the power of 
icons to your own programs. 
Replace your menu screens with 
dynamic screens of icons, where 
selection is controlled from the 
cursor keys. Icons are 
sophisticated but simple to use, 
as anyone who has used an AMX 
Mouse will know. 


Icon Master is normally controlled 
from the keyboard, but AMX 
Mouse owners may prefer to 
control it with their AMX Mouse, 
Icon Master automatically knows 
which you are ae Once you 
have created your icon front end, 
you may use it with or without Icon 
Master in your computer and so 
may pass it to friends or even 
include it in software that you 
intend to sell. 


46K Rom £34.00 


7 LORD ICONS/TEXT 
Å FILENAME: ICONS 


Icon Master is easy to use. Firstly, 
you create your own Icons on the 
Hein contri] desler Screen. 


on it. Once you have finished, Icon 
Master creates the necessary 

code and Gavene pie Dici 
for you. This screen shows how 
you might use icons in a 
database. 


Members $25.50 
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3UGSOFTSOFTWAREBEEBUGSOFTSOFTWAREBEEBUGSOFTSOFTWAREBEEBUGSOFTSOFTWAREBEEBUGSOFTSOFTWAREBEEBUGSOF TSOF TWAREB' 
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e Create Your Own Silicon Disc 


€ A Complete Filing System TReMSEER ` ÍLORD LBD 
with up to 16K capacity Ë PEU o DA 
(per bank of Ram) *RELORD UPLOAD AD 


*REXEC *INFO XPRINT 


2 FRAM 
24 INFO 
MY .PROGRAM L FF1900 FFBO23 1CDE 


MY . DATA FFOCOO 900000 0100 
!BODT L 000000 000000 GO7C 


ROMIT adds a new feature to ! HELP 000000 000000 0044 
your BBC Micro le A Ram Filing 3f Rom. &6439 Free bytes £1CCG 
System. This provides over 20 new S BOUNLOAD 

commands which enable you to: 


Create a silicon disc with its own filing system Commands. 
= Type xRAM, then you can catalogue the “disc”, save and load 
files to it, storing as many files as memory will allow. *DISC (or *TAPE) 
takes you back to your normal filing system. You will need sideways 
Ram to use this facility. 


Put your own Basic or assembler programs (or any files) into Ram 
„and then make them into Eproms. Whether it's your favourite 
game, your function key definitions or any program that you use 
frequently, you can now put it into Eprom so that it's always instantly 
available. Multiple copies can also be produced to enable you to 
pass on your programs to other people. 


Getting your own Basic program into Rom couldn't be simpler. 
Just load your program into memory and type: 


*RAM  xTRANSFER "prog" *DOWNLOAD 


and either connect it to a blower, or send the disc (or tape) to us, 
together with your Romlt registration number, and we will Rom it for 
you. (There is a small charge for this service). 


Use your sideways Ram as a printer buffer so that you can 
«continue to use your computer for other work at the same time 
as printing long documents. 


OVER 20 NEW *COMMANDS ARE PROVIDED BY RoMITIBZLU iie 


An Eprom Blowing Service is offered with this pack. £29.90 


To get the most from Romlt you will need sideways Ram fitted to your 
computer, eg just a single Ram chip plugged into your ATPL 
(or other) Rom board. 


:BEEBUGee 
IEBEEBUGSO 


AARDVARK 
AARDVARK 


A&F 
A&F 
A&F 
AGF 
A&F 


ACORNSOFT 
ACORNSOFT 
ACORNSOFT 
ACORNSOFT 
ACORNSOFT 
ACORNSOFT 
ACORNSOFT 
ACORNSOFT 
ACORNSOFT 
ACORNSOFT 
ACORNSOFT 
ACORNSOFT 
ACORNSOFT 
ACORNSOFT 
ACORNSOFT 
ACORNSOFT 
ACORNSOFT 
ACORNSOFT 
ACORNSOFT 
ACORNSOFT 
ACORNSOFT 
ACORNSOFT 
ADDICTIVE 
ADDICTIVE 
ALLIGATA 

ALLIGATA 

ALLIGATA 

ALLIGATA 


ASP Software 


ATARISOFT 
ATARISOFT 
ATARISOFT 
ATARISOFT 
ATARISOFT 


BEEBUG 
BEEBUG 
BEEBUG 
BEEBUG 
BEEBUG 
BEEBUG 
BEEBUG 
BEEBUG 
BEEBUG 
BEEBUG 
BEEBUG 
BEEBUG 
BEEBUG 
BEEBUG 


GAMES 
MAG 
MAG 
MAG 
MAG 
MAG 
MAG 
MAG 
MAG 
MAG 
MAG 
MAG 


High Scores 


Zalaga 

Frak! 
Chuckie Egg 
Cylon Attack 
Painter 
Planes 

Plank Walk 
Arcadians 
Aviator 
Boxer 
Carousel 
Freefall 
Hopper 
Invaders 

JCB 
Labyrinth 
Meteors 
Missile Base 
Monsters 
Planetoid 
Revs 

Rocket Raid 
Snake 
Snapper 
Starship Command 
Super Invaders 


Tetrapod 
Tracer 


Volcano 

Boffin 

Boffin 2 
Blagger 

Bug Blaster 
Eagle Empire 
Son of Blagger 
Froglet 
Crystal Castles 
Donkey Kong Jnr. 
Joust 

Pole Position 
Robotron 2084 
Santa 

Aliens 

Block Blitz 
Breakout 
Brickie Nickie 
Cosmonaut 
Detonator Dan 
Dive Bomber 
Elevasion 
Galactic Invasion 
Hedgehog 
Invasion 
Manhole 
Munchman 


15007810 
20000200 
25000390 
77738 
168600 
57485 
7970 
40220 
9680 
45640 
44670 
17745 
62100 
26260 
23690 
510300 
58298 
173598 
257060 
875185 
1:24.6 
200050 
1418 
1089270 
11112 
68420 
8450 
367000 
6158 
227570 
308115 
18830 
539348 
99300 
79960 
175770 
26700 
19400 
1410565 
113188 
167508 
43420 
890 
34510 
21950 
97330 
4046 
1119515 
42280 
25600 
96300 
32768 
756 

224 
62596 


D.Hesketh 
P.Schmedling 
C.Bunch 
J.Richardson 
E.Samerville 
I.Teixeira 
R.Barnes 
P.Orton 
C.Bunch 
Cthulhu 
D.Wigg 
M.Aggarwal 
I.Cook 

J.De Saram 
D.Whi ttam 
V.Nicholas 
S.Werrett 
S.Murphy 
A.Bailey 
G.Sands 
I.Melville 
P.O'Malley 
R.F.Tagart 
J.Longhurst 
E.Longhurst 
K.Butler 
K.Allen 
A.Hayden 
K.Butler 
G.Deas 

J. Tompkins 
J. Tompkins 
S.Mughal 
J.De Saram 
S.Menges 
S.Williams 
R.Phillips 
D.Tilley 
L.Chasmer 
A.Hockton 
R.Koten 

R. Tweed 
J.Hanrahan 
D.Tilley 
A.Hockton 
C.Eberhardt 
D.Tilley 
G.Deas 
D.Duffey 
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SUPPLEMENT 


Æ 


LOW COST C.A.D. 


ATTENTION ALL ELECTRONICS CIRCUIT DESIGNERS!! 
IBM PC, BBC MODELS B and SPECTRUM 48K 


ANALYSER I and II compute the A.C FREQUENCY RESPONSE of linear (analogue) circuits. GAIN 
and PHASE, INPUT IMPEDANCE, OUTPUT IMPEDANCE, and GROUP DELAY (except Spectrum 
version) are calculated over any frequency range required. The prgrams are in use regularly for 
frequencies between 0.1Hz to 1.2GHz. The effects on performance of MODIFICATIONS to both 
circuit and component values can be speedily evaluated. 

Circuits containing any combination of RESISTORS, CAPACITORS, INDUCTORS, 
TRANSFORMERS, BIPOLAR AND FIELD EFFECT TRANSISTORS and OPERATIONAL AMPLIFIERS 
can be simu'ated — up to 60 nodes and 180 components (IBM version). 

Ideal for the analysis of ACTIVE and PASSIVE FILTER CIRCUITS, AUDIO-AMPLIFIERS, 
LOUDSPEAKER CROSS-OVER NETWORKS, WIDE-BAND AMPLIFIERS, TUNED R.F. AMPLIFIERS, 
AERIAL MATCHING NETWORKS, TV I.F. and CHROMA FILTER CIRCUITS, LINEAR INTEGRATED 
CIRCUITS etc. 

STABILITY CRITERIA AND OSCILLATOR CIRCUITS can be evaluated by "breaking the loop". 


Tabular output on Analyser I. Full graphical output, increased circuit size and active component 
library facilities on Analyser Il. 


Check out your new designs in minutes rather than days. 
ANALYSER can greatly reduce or even eliminate the need to breadbord new designs. 
Full AFTER SALES SERVICE with TELEPHONE QUERY HOT LINE and FREE update service. 


Used by INDUSTRIAL, GOVERNMENT, and UNIVERSITY R & D DEPARTMENTS worldwide. IDEAL 
FOR TRAINING COURSES. VERY EASY TO USE. Prices from £20 — £195. 


DRAUGHTING 
BBC MODEL B 


“DRAWER I” enables quality drawings to be created, and modified, quickly, easily and with the 
minimum of hardware. Positional input is by standard joystick. All of the major program 
elements are written in mac ine code giving exceptional speed of operation. 


"MINIMUM HARDWAR 


FEATURES 


** Rubber Banding for drawing lines: * BBC Model B. 

* Solid or Dotted lines types. * Single or Dual Disc Drive — 40 or 80 track. 

* Circles, arcs and partial or complete elipses. * TM or monitor. 

* Vertical or Horizontal Text. * Games Joystick with "fire button". 

* Panand Zoom. % Dot Matrix Printer (Epson 80 series or Epson compatible — 
* Merging of drawings and library symbols from disc. BBC default mode preferable). 

* Snap to a user defined grid. 

% Absolute or Relative cursor co-ordinates displayed on screen. 

* Output to standard dot matrix printer. 

* Price — From £45 ex. VAT. 


For illustrated leaflets and ordering information please contact: 

NUMBER ONE SYSTEMS LIMITED TEL: 0480 61778 
Ref: B.B. TELEX: 32339 
| Crown Street, 


St. Ives Huntingdon, Cambs PE17 4EB 
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BEEBUG MAG 
BEEBUG MAG 
BEFBUG MAG 
BEEBUG MAG 
BEEBUG MAG 
BEEBUGSOFT 
BEEBUGSOFT 
BEEBUGSOFT 
BEEBUGSOFT 
BUG-BYTE 
BUG-BYTE 
COMP CONCEPTS 
DR.SOFT 
DURRELL 
DYNABYTE 
DYNABYTE 
FIREBIRD 
FIREBIRD 
FIREBIRD 
FIREBIRD 
FIREBIRD 
GEMINI 
GEMINI 

H SOFT 
HOPESOFT 
ICON 

ICON 

ICON 
IMAGINE 
IMAGINE 
KANSAS 
MICRO-BYTE 
MICRO POWER 
MICRO 
MICRO 
MICRO 
MICRO 
MICRO 
MICRO 
MICRO 
MICRO 
MICRO 
MICRO 
MICRO 
MICRO 
MICRO 
MICRO 
MICRO 
MICRO 
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Robots 

Scrumpy 

Space City ; 
Truffle Hunt 
Wee Shuggy 
Astro-tracker 
Magic Eel 
Snorter 
Swarmers Revenge 
Oblivion 

Sealord 

Android Attack 
Pengo 

Combat Lynx 
Space Ranger 
Demolator 

Acid Drops 

Bird Strike 
Duck 

Gold Digger 
Hacker 
Caterpillar 
Missile Control 
Penguin 

Escape from Orion 
Caveman Capers 
Contraption 
Drain Mania 
Yie-Ar Kung Fu 
Hypersports 
Galactic Firebird 
3D Space Ranger 
Asteroid Storm 
Bumble Bee 
Castle Quest 
Croaker 
Cybertron Mission 
Danger! UXB 
Demon Decorator 
Dune Rider 
Frenzy 

Killer Gorilla 
Felix in the Factory 
Felix and Monsters 
Ghouls 

Jet Power Jack 
Laser Command 
Martian Attack 
Mine 

Moonraider 
Mr.Ee 

Positron 

Rubble Trouble 
Swoop 

3D Munchy 
Castle Assault 
Castle of Gems 
Crystal Castle 
Q-Man 

Q-Man's Brother 


31510 
39975 
110362 
6189 
5124 
38555 
8000 
33202 
92800 
5010 
4020 
1132985 
98000 
1296 
25450 


164500 
1109700 
92500 
8790 
1341961 
472700 
23280 
95540 
61090 
18275 
1010525 
32300 
224640 
232200 
480600 
276850 
24072 
31890 
65610 
6600 
31998 
880 
43975 
8670 


D.Tilley 
A.Webster 
R.Bunnett 
R.Koten 
G.Togwell 
N.Hallam 
A.Webster 
G.Deas 
A.Webster 
Cthulhu 
M.Orton 
J.Button 
C.Chamberlain 
J.Morley 
P.Orton 
P.Orton 

I .Melville 
I.Melville 
E.Denning 
E.Somerville 
P.Orton 
B.E.Atthat 
F.Fook 
J.Dowling 
P.Orton 
I.Melville 
I.Melville 
Cthulhu 
J.Jackson 
A.Webster 
D.Wigg 
R.Bunnett 
J.Terry 
R.White 
S.Rawnsley 
S.Menges 
P.Lugman 
D.Russell 
J.Drysdale 
J.Button 


C. Eberhardt 
Cthulhu 


Cthulhu 
C.Shilling 
Mrs.Crystal 
A.Hammond 
P.Tompkins 
D.Wigg 
M.Colson 
K.Butler 
P.Orton 
I.Melville 
B.Smith 
B.Smith 


TO BE CONTINUED 


Classified Ads 


Rates are 18p (inc VAT) per word for members’ personal ads. Members’ business ads 
cost 30p (inc VAT) per word - and if you are selling any item in quantities rather than 
one-off, then that counts as business. Send cheque with order to PERSONAL ADS, 
PO BOX 50, ST. ALBANS, HERTS AL1 3YS. It is essential to include your membership 
number. Please note that we cannot arrange for box numbers. 


HEAD-MASTER ROM: Prints your own headed 
paper with Kaga/Canon or Epson 
compatible printer. Any  size/shape 
headings, with graphics and different 
typefaces, to your (or our) design, on 
ROM, called with a simple *command. 
Prices from £25. For details and samples 
send A5 SAE to HEAD-MASTER, 206 Barker 
Drive, St.Pancras Way, London. 


Problems? try R-SOFT utilities! 

1. HOW-TO: An essential collection of 
software and instructions for frustrated 
new disc owners who want to move their 
programs to disc. 

3. ROMPULL + TAPEDUMP. 

4. AUTOMATIC DISC MENU: Includes 
sideways-RAM version, can boot from ROM, 
works with 2nd 6502, 

5. AUTOSOL: Will automatically boot your 


Solidisk with a pre-selected list of 
ROMS. 
6. SWROM*: Puts your Basic / machine 


code programs in ROM format. 

7. RFS-GENERATOR: Generates ROMs for the 
*ROM filing system. This does not use 
the DFS workspace and is an ideal tool 
to run nasty programs from disc. 

All above packages £5.00 each. 

8. D-MASTER: Superb disc backup program 
(unprotected): £7.00. 

Many other utilities (BBC only - 
sorry!): send for our list (SAE please). 
R-SOFT, 22 Marriotts Close, Felmersham, 
Bedford, MK43 7HD. (Ø234) 78173Ø. 


MARKS AND STATISTICS For teachers and 
lecturers. Simple to use spreadsheet 
format. 33Ø students per file. Up to 3ØØ 
subjects. Sorts, analyses, normalizes, 
calculates means, applies weighting 
factors. Prints histograms and lists. 
Full documentation supplied. Disc (4Ø or 
80 track) £17. In-Form, 73 Woodfield 
Park, Colinton, Edinburgh EHI3 ØRA. 


Acorn Teletext adaptor. Hardly used £80. 
Tel: (Ø795) 843297. 


Ji 


BEEBUG 


Monitor, Novex 12 inch high resolution 
amber screen. Composite video input, 
hardly used £45. Rayleigh (Ø268) 771368. 
Can transport to central London. 


Cryptology. Wanted, help to convert 
Commodore programs emulating M 209 and 
Enigma to BBC. Ralph Erskine, 25 
Hawthornden Road, Belfast BT4 3JU. 
(0232) 658066. 


BBC model B, 2 * 400K Cumana DS drives, 
Microvitec (1431MS) colour monitor, over 
£150 software, all manuals, 30 discs, 
books, Opus organiser desk. £650 ono. 
S.G McDonald, 12 Portway, Wantage, Oxon. 
OX12 9BU. 


For sale: Hewlett-Packard 41CV alphanum- 
eric programmable scientific calculator. 


Complete with manuals and circuit 
analysis module. £150. Tel: (0562) 
747923 mornings. (Worcs). 

Sideways RAM for all BBC models. 32K 
with battery backup £40. 16K £20. No 
Soldering - requires only one ROM 
Socket. With write protect switch - 


Software. SAE: Stauning (02) 288506, 
Udsbjergvej2, 3320 Skaevinge, Denmark. 


MILLENNIUM - The wargamer's dream come 
true - simultaneous play on 2 BBC-B's 
linked via modified  RS423 cable. 
Interstellar strategy game with 3 


scenarios * 3 victory levels. Also one 
computer play. Disc £8.95 (state 40/80 
track); with cable £12.95. Cheque/PO to: 


Falconsoft, P.0.Box 141, Welling, Kent 
DA16 2EB. 
Wanted. Disc software for  biorhythm 


charts 'B' to Star printer. Details to 
LKM. 74 Abingdon Road, Maidstone, Kent. 
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SUPPLEMENT 


Mailbox 8Ø 
24 Hours 


Mailbox 83 
20.00-08.30 WE 24hr 


Maptel 
24 Hours 


Marctel 
10.00-22.00 


MBBS Leconfield 
24 Hours 


MBBS Mitcham 
24 Hours 


Metrotel 
24 Hours 


MG-NET 
Sun 17.00-22.00 


Microlive 
24 Hours 


Microweb 
24 Hours 


Mileways 
18.00-22.00 Mon-Fri 
10.00-22.00 Sat/Sun 


MOBB 


24 Hours 


Morecambe OBBS 
24 Hours 


NBBS Aberdeen 
24 Hours 


NBBS Cheshire 
24 Hours 


|! BEEBUG 


UK Bulletin Boards 


951 428 8924 NBBS East 
(Liverpool) 24 Hours 
300/300 

0384 635336 NBBS Essex 
(West Midlands) 24 Hours 
300/300 

0702 552941 NBBS London 


(Essex) 
300/300 


Øl 346 7150 
(London) 
300/300 


0401 50745 
(Beverley) 
300/300 


Øl 648 0018 
1200/75 & 300/300 


Øl 941 4285 
(London) 
1208/75 Viewdata 


Øl 399 2136 
300/300 


Øl 579 2288 
(London) 
300/300 


061 456 4157 
(Manchester) 
300/300 


0533 608442 
(Leicester) 
300/300 


961 736 8449 
(Manchester) 
1200/75 & 300/300 


0524 426133 
(Morecambe) 
300/300 & 1200/75 


0224 647158 
(Aberdeen) 
300/300 


9936 77025 
(Cheshire) 
1209/75 & 300/300 


21.00-08.00 WE 24 Hrs 


NBBS Lutterworth 
20.00-08.00 WE 24 Hrs 


NBBS Midlands II 
19.00-23.00 WE 24hrs 


NBBS Marlow 
Sat-Thur 18.00-00.00 
Ring and Ask 


NBBS NE 
24 Hours 


NBBS Wallington 
23.00-16.00 


NKABBS 
21.30-00.00 


Norview 
24 Hours 


OBBS Bradford 
WD 18.00-00.00 


OBBS Manchester 
24 Hours 


OBBS 2 North Wales 
24 Hours 


Octopus 
18.00-08.30 


Optel 
24 Hours 


90692 630186 
(Norfolk) 
1200/75 & 300/300 


90277 228867 
(Essex) 
1200/75 & 300/300 


Øl 883 5290 
(London) 
1200/75 & 300/300 


945 55 4798 
(Lutterworth) 
300/300 


0246 865843 
(Chesterfield) 
300/300 & 1200/75 


9628 46691 


(Berkshire) 
1200/75 & 300/300 


0224 641066 
(Abrerdeen) 
300/300 & 1200/75 


Øl 669 7249 
(London) 
1200/75 & 300/300 


0795 842324 
(Kent) 
300/300 * 


9604 20441 
(Northampton) 
1200/75 Viewdata 


0274 496783 
(Bradford) 
300/300 


961 427 1596 
(Manchester) 
300/300 


0244 549336 
(Wales) 
300/300 


0272 421196 
(Bristol) 
300/300 


Øl 794 0655 


(London) —3»10 
1200/75 Viewdata 


SUPPLEMENT 


MEGAMOUSE 


CAD ART 
GRAPHICS 4 DESIGN 


The MEGAMOUSE hardware is a high quality UK manufactured mouse whichis highly 
accurate and utilises a slip-free rubber-coated ball. Because of its design, quality and 
accuracy, it is a popular AMX replacement. £55.00 + VAT 


CADMOUSE — advanced drawing package 
operating in Mode 0 for super resolution or Mode 1 
for real time colour. Reviewed as “best drawing 
package on BBC”, Powerful “move”, “duplicate” and 
“invert” features are included as well as numerous 
CAD features. Hundreds now in use. One of few 
mode 0 packages on the BBC. 

MEGAMOUSE and AMX Compatible £26.00 + VAT. 
RB2 version £29.90 + VAT 


ARTIST — dramatic new pure art package operating 
in Mode 2 for all 8 prime colours and hundreds of 
shades. Every pixel is addressable and one can design 
any multi-colour paint brush, air brush or icon. 
Innovative features include “under and over” (paint 
above and below other colours) “colour cycling”, 
“colour without” (copy a picture without the 
background) and animation. Reviewed “unrivalled 
and boasts a power undreamed of”. “A joy to use” etc. 
A+B Computers — June 1986 — “Without doubt this 
is the finest free hand graphics aid I have ever seen”. 


MEGAMOUSE and AMX Compatible £48.00 + VAT 


P&P £1.50. Access, cheques, cash, POs, educational orders etc. 


WIGMORE HOUSE LID 


32 Savile Row, London W1X 1AG 
Tel: 01-734 0171/8826 
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d Å 


OSI Lives! 
24 Hours 


Owl tel 
24 Hours 


PBBS-NI 
22.00-00.00 


Pete's Place 
24 Hours 


PIP 
24 Hours 


Pot-Bug 
20.00-23.00 Mon-Fri 
14.00-23.00 Sat/Sun 


PSBBS 
18.00-23.00 


React 
24 Hours 


RSGB 
24 Hours 


SABBS 
24 Hours 


Sanctuary 
24 Hours 


SBBS The Irishman 
21.00-09.00 


SBBS Watford 
21.00-08.00 


Southern BBS 
24 Hours 


01 429 3047 
(London) 
300/300 


Øl 927 5820 
(London) 
1200/75 Viewdata 


0762 333872 
(N.Ireland) 
300/300 


0206 862354 


(Essex) 
300/300 


0742 667983 
(Sheffield) 
300/300 


0782 503254 
(Stoke-on-Trent) 
300/300 1200/75 


0443 755298 
(Wales) 
300/300 


0376 518818 
(Essex) 
300/300 


9707 57477 
(Hertfordshire) 
1200/75 Viewdata 


0698 884804 
(Larkhall) 
300/300 


0784 38110 
(Surrey) 
300/300 


0247 455162 
(N.Ireland) 
309/300 


0923 676644 
(Hertfordshire) 
300/300 


0243 511077 
300/300 


Stoke ITFC 
24 Hours 


Swafax 
24 Hours 


System Aid 
24 Hours 


TBBS Blandford 
24 Hours 


TBBS London 
24 Hours 


TBBS West Midlands 
18.00-08.30 


Techno Fresh systems 
24 Hours 


Technoline 
24 Hours 


Telemac 15, OBBS 
24 Hours 


Timestep 
(Suffolk) 


TUG London 


24 Hours 


TUG Board II 
20.00-08.00 


WBBS Lowestoft 
18.00-00.00 


WBBS Wimbledon 
19.00-02.00 


0782 265078 
(Stoke-on-Trent) 
1200/75 Viewdata 


90622 850440 
(Kent) 
1200/75 Viewdata 


Øl 571 0026 
(London) 
1200/75 Viewdata 


0258 54494 


(Dorset) 
300/300 


Øl 348 9400 
(London) 
300/300 


0384 635336 
(London) 
300/300 


0570 423082 
(Dyfed) 
300/300 1200/75 


Øl 450 9764 
(London) 
1200/75 Viewdata 


0625 33703 
300/300 


0440 820002 
1200/75 


Øl 200 7577 
(London) 
300/300 


021 444 1484 
(Birmingham) 
300/300 


0502 515935 
(Suffolk) 
300/300 


Øl 542 3772 
(London) 
1200/75 & 300/300 


BEEBUG 


SUPPLEMENT 


Discounts (CONTINUED) 


Simonsoft, : Mail Order Only. 5% to 10% discount on 
25 Tatham Road, Abingdon, ^ Discounts to members on hardware, and 13% off all 
Oxon. OX14 1QB some items. Phone for Rom’s/Software. 


5% to members of BEEBUG details. 
on Sprites v.2, Superfruit, 


Castaway. 5% to members of Total Business Service, ee Supplies Ltd. 
S. de rudes olio Lane, Tel: 04862 62020 
PEF Amersham, Bucks. een Lee | 
å uki aisyvwheel printer. 
PEER A free program with every — Model 6100. Brand new, fully — 
74 er Dui two purchased. guaranteed, free delivery UK 
Bathford : Uu dL mainland, £369 inc. VAT. 
Bath BA1 7UE 43 Pearce ente, i Je 
Parkstone, Poole, J , 
Fu de A Feriis e mng Dorset BH14 8EG 29 St. Michaels Close, 
Objective Test System. Tel: 0202 740147 m Veces AUN 2BP 
5% discount to members on Pene 
Fane Electonice their Universal Stand. Aal off “EASYCALC” 
Supplies Ltd., yte 
Thurston House, Weserve 
18 Shirehall Lane, 128 West Street, 
Hendon, Porchester, 
London NW4 2PB Hants. PO16 9XE 


MEE NO 
BEEBUG 


For advertising details please contact: 


Lynn Lloyd Yolanda Turuelo 
on or on 


(0923) 
677222 (0727) 40303 


or write to 
PO. BOX 50 
St. Albans Herts. 
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LA ORT 


JEFF MINTER’s 


A LIGHT SYNTHESISER 


“So brilliant that I find words too cumbersome to describe it.. the perfect 
accompaniment to any kind of music-” 


“You get to create amazing flowing geometrical bursts of colour on 
your computer-” 


"..a delight to use and to watch.. a superb visual accompaniment to music.. 
puts many a disco to shame.” 


“intended to blow your mind- in the nicest possible way.. an interactive 
firework display.” 


“anyone who can manipulate a joystick or press a key can will enjoy 


COLOURSPACE..” 


NOW AVAILABLE FOR the BBC B - £7.95 on tape from your 
computer store or direct from 


Liamasott Entertainment Software 


49 MOUNT PLEASANT TADLEY HANTS (tel 07356 4478) 


BEEBUG SUPPLEMENT 


Movie Maker 


If you fancy yourself as the next Orson 
Wells then this may be your chance. 
Geoff Bains occupies the directors 
chair with Movie Maker from the 
unlikely named Slippery Slug. 


Product : Movie Maker 
Supplier : Slippery Slug Software 
PO Box 83, Bath, BA1 1ZA. 


(0225) 69236 
Price :£29.90 
This unusual package, from an 


unusually-named company, offers BBC owners 
the chance to join the moguls of Hollywood 
and make their own mini-series. 


Movie Maker is a screen design package 
for mode 7 that combines both static and 
dynamic effects. Within the limitations of 
the Beeb and its mode 7 display you can 
produce a 'film' running for several 
minutes (the demo supplied lasts about 20 
minutes). The pack comprises two sideways 
ROMs, a demo cassette, and a rather poor 
50 page manual. 


Everything you create with Movie Maker 
is based on a 'scenery map' the size of 90 
teletext Screens. Onto this are put 
predefined 'shapes'. These can also form a 
'cycle' - a short series of frames that 
are displayed one after another. The 
shapes are placed and moved according to a 
program also entered by the user. 


The shapes are defined on what must be 
one of the best teletext screen designers 
around. The shapes are drawn out using a 
cursor the size of a single mode 7 pixel 
under the control of the cursor keys. 


KODAK SAFETY FILM 503 KODAK SAFETY FILM 5036 KODA 
888885858585858585385858858585858588838238325868 


| ; 


| 


t K 
88888888888888535888858888888853858 
ed Ë x EST. > y" å 
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Unusually these provide not only the four 
expected directions but diagonal movement 
as well when combined with the Shift key. 


Colours and other teletext effects are 
produced with the function keys and the 
designer is clever enough not to let you 
erase the control codes when drawing. When 
the shape is complete it is stored away to 
be called up again by name at any time. In 
a similar manner, shapes can be converted 
into a cycle of frames with a simple 
editor and these stored as well. 


When the casting is finished, the 
filming can begin. Using the cursor keys 
the shapes are placed on the scenery map 
in sequence as they are required. The 
shapes can be set moving automatically and 
the screen window set to follow close 
behind, or centre on them, or stay just 
where it is. Some shapes can be made to 
pass 'in front of' or 'behind' others. 


The movie programming process is 
controlled with the cursor keys, a few 
single key commands and Movie Maker's 
inherent intelligence. Captions can be 
displayed at the bottom of the screen and 
even speech 'bubbles' assigned to shapes 
on the screen, their speech scrolling 
across an eleven character window above 
the shape. When the whole movie's in the 
'can' you can save the entire film or even 
generate a stand alone program to show it 
on a Beeb not equipped with Movie Maker. 


The whole process of defining shapes 
and assembling the movie is not a simple 
one, and the single key commands take a 
while to get used to. However, the package 
can produce some excellent results, as the 
demo 'movie' demonstrates. The program has 
obvious applications in the development of 
educational software and  demonstrational/ 
instructional material. However, not only 
does Movie Maker succeed well in these 
fields, but it provides excellent 
opportunities for just having fun as well. 
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Surac shows how to put some style into your programs and 
speed up execution at the same time. 


This month we'll look 
at ways of polishing a 
program to make it both 
easier to understand and 
faster running. We will 
start with a program 
written in a very simple 
version of Basic, and see 
how we can improve things 
by using the features of 
BBC Basic. 


As a starting point I 
will take a program that 
is sometimes used asa 
benchmark to test the 
speed of a micro. I will 
NOT be trying to criti- 
cise the original pro- 
gram - it was written to 
test lots of different 
computers and had to be 
in a fairly basic Basic. 
The program is a version 
of the "Sieve of Eratos- 
thenes", a quick way of 
finding prime numbers. 


Understanding the 
program is an exercise I 
will leave to you, and 
which demonstrates how 


hard it is to follow raw 
Basic. The program's 
output is the array F(), 
which identifies the 


prime numbers between 1 


and 5000; locations in 
F() with prime indices 
hold "I", and non-prime 


indices are set to zero. 
Thus, at the end of a 
run, .E(17) "is "set to 1 
and F(18) holds 0. As a 
reference, this version 
takes 48.73 secs to run. 


As a starter, let's 
see what we can do to 
speed it up. First of all 
it uses floating-point 
(FP) variables, although 
the program only ever 
deals with whole numbers. 


PRIME NUMBERS | 
5=5ØØØ 
DIM F(S) 
PRINT "Starting" 
TIME=Ø 
C=Ø 
FOR I=1 TO S STEP 2 
F(I)=1 
NEXT 
F(Ø)=1:F(2)=1 
FOR I=Ø TO S 
IF F(I)-0 THEN 280 
P=I+I+3 
K=P+P 
IF K>S THEN 270 


290 PRINT "Done in ";TIME/1ØØ;" secs" 


Unfortunately, FP numbers occupy more 
memory - 5 bytes each in the Beeb, against 
4 - and take longer to manipulate than 
integers. 


Furthermore, F(5ØØØ) 
bytes (Do you know why?), 
cell only ever holds 1 or Ø. That's a 
terrible waste; BBC Basic allows "byte 
arrays", with only a single byte allocated 
to each array location. That's more than 
adequate for this application, as well as 
faster, even though only a single bit is 
really needed. So, using integer variables 
(a 3 at the end of the name) and a byte 
array gives us version 2. 


occupies 25005 
although each 


Note how we now get to the array 
elements with the “indirection operators" 


"2" and "!", The running time? Just 
27.29 secs. 
That's much faster, but it's still 


hard to see what the program is doing. 
However, because BBC Basic is not confined 
to one- or two-letter variable names, we 
can use meaningful words, which make 
everything much easier to understand. For 
instance, "S%" holds the maximum possible 
size prime we are looking for - why not 
call it "Size$"? Don't forget, the "$" 
defines an integer variable. 
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PRIME NUMBERS 2 
S$-5000 
DIM F$ S$ 
PRINT "Starting" 
TIME=Ø 
C$-0 
1F$-810101 
FOR I$-3 TO S$ STEP 2 
F$1I$-1 
NEXT 
FOR I$-0 TO S$ 
IF F$?I$-0 THEN 280 
P$-I$4I$43 
K$-P$4P$ 
IF K%>S% THEN 270 
F$?K$-0 
K$-K$4P$ 


290 PRINT "Done in ";TIME/1ØØ;" secs" 


We can also make the structure a bit 
clearer. Look at that listing - if you 
follow it through (not easy), you will see 
that the code at lines 210 to 270 
inclusive is executed whenever F$?I$ is 
non-zero. If that location is zero, the 
block of code is omitted. If we convert 
the code to a procedure we can pull it out 
of the main loop and make the action of 
the IF a lot clearer: 


PRIME NUMBERS 3 
Size$-5000 
DIM Flag$ Size$ 
PRINT "Starting" 
TIME=Ø 
Count3=Ø 
IFlag%=&1Ø1Ø1 
FOR Index3=3 TO Size% STEP 2 
Flag% ! Index3=1 
NEXT 
FOR Index%=Ø TO Size% 
IF Flag$?Index$ THEN PROCCancel 
NEXT 
PRINT "Done in ";TIME/100;" secs" 
END 


DEF PROCCancel 
Prime%=Index%+Index%+3 
Pter$-Prime$tPrime$ 

IF Pter%>Size% THEN 1070 
Flag$?Pter$-0 
Pter%=Pter%+Prime% 


GOTO! 030 
Count3=Count3+1 
ENDPROC 
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That makes what is going on rather 
clearer. However, mainly because of the 
long variable names, it takes longer to 
run: 40.62 secs. Note that the IF at line 
200 makes use of the fact that any 
non-zero value is treated as TRUE. 


PROCCancel, with its spaghetti  GOTOs, 
still isn't easy to understand. Lines 
1030-1060 cancel all multiples of a prime 
while Pter$ is less than Size$. Pull that 
bit out as another procedure, and change 
its structure to make the control flow 
clearer: 


1000 DEF PROCCancel 

1810 Prime%=Index%+Index%+3 

1020 Pter%=Prime%+Prime% 

1030 IF Pter%<=Size% THEN PROCNoPrime 
1040 Count$-Count$*l 

1050 ENDPROC 


2000 DEF PROCNoPrime 
2010 REPEAT 
Flag$?Pter$-0 


2030 ` Pter$-Pter$*Prime$ 
2040 UNTIL Pter%>Size% 
2050 ENDPROC 


The test at line 1030 is reversed to 
allow us into PROCNoPrime. The code of the 
latter shows much more clearly what is 
happening. Easier to follow, and faster: 
38.1 secs. 


I used 
reflect as accurately as I 
original program. However, this is not 
necessarily the best approach. The loop 
REPEATS some events and/or calculations 
UNTIL a pre-defined condition occurs. In 
this case, the repeated events are a 
cancellation and a simple addition of a 
fixed value to Pter%. The UNTIL event is 
that Pter$ exceeds Size’. Think again; 
that's a FOR-TO-STEP-NEXT loop, and we 
could restructure PROCNoPrime as: 


a REPEAT-UNTIL loop there, to 
could the 


2000 DEF PROCNoPrime 
2010 FOR Pter$-Pter$ TO Size$ 
STEP Prime$ 


2020 | Flag$?Pter$-0 
2030 NEXT 
2040 ENDPROC 


That is not only easier to follow, but 
it is much faster. It calculates the 
primes below 5000 in just 22.75 secs. The 
moral - choose your loops carefully. 
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SOFTWARE FOR 
SIDEWAYS RAM 


(Part 1) 


Bernard Hill, author of 


BEEBUGSOFT's Romit, looks into the 
creation of useful software for 


sideways RAM and ROM. 


Although the BBC micro's facility for 
sideways ROMs is one of its most useful 
features, most users have little in-depth 
knowledge of the system and how to write 
their own sideways software. Surprisingly, 
ROM software is not difficult to produce, 
provided you have some familiarity with 
assembler. Even if you do not, the 
programs accompanying these articles are 
easily tailored to your own use. 


Your own sideways software can be 
blown into EPROM with an EPROM programmer 
(such as that featured in BEEBUG Vol.4 
Nos. 4 and 5) or you can store the image 
on any filing system of your choice for 
loading into sideways RAM. A second 
processor should be disabled before 
entering these programs although the 
resulting EPROM will be Tube compatible. 


DIFFERENT SYSTEMS 


In order to make best use of these 
programs you should ideally have a BBC 
micro with Basic II together with sideways 
RAM for testing any improvements or 
changes you will make to the programs. 


Basic II users without sideways RAM 
will have to blow the EPROM before testing 
and will need to assemble it in 'normal' 
RAM for running at &8ØØØ. Just change the 
value of O% in each program (line 100) to 
&5CØØ. Basic I users with sideways RAM 
will need to replace the EQUS, EQUB and 
EQUW statements in the programs with the 
routines found in BEEBUG Vol.4 No.3 Page 
42. Basic I users can only use these 
programs with sideways RAM, and cannot use 
them to program EPROMs. 


If your sideways RAM board does not 
allow all writes to memory between  &8000 
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and &BFFF to go to sideways RAM, the 
programs should be altered to write-enable 
the RAM, or to assemble at &5CØØ (Basic II 
only) and install the code in sideways RAM 
later. Check the relevant manual. 


BLOWING YOUR EPROM 

When your ROM is complete you will 
wish to save it, and perhaps blow it in an 
EPROM. To save the software assembled in 
sideways RAM to the current filing system 
as 'ROM', use the following short program. 
The value of rom’ and len% should be 
altered to suit the ROM socket number and 
length of ROM to be saved. 


1Ø REM ROM/RAM DOWNLOADER 

20 MODE 7 

30 rom%=&F:len%=&2ØØØ:Y%=rom% 

40 FOR I$-0 TO len$:PRINTTAB(1,1)^I$ 

50 !&F6-I$4-88000:1$?&3000-USR (&FFB9) 

60 NEXT 

70 $89ØØ= ("SAVE ROM 3000 "+STR$ (len$4 
1)+" 8000 8000"):X$-0:Y$-9:CALL &FFF7 


SERVICE CALLS 


Sideways ROMs are of two basic types: 
languages and service ROMs. Here we shall 
deal with service ROMs only as writing a 
complete language is no mean task! 


At various times during operation the 
OS offers all the paged ROMs in your micro 
the opportunity to respond to particular 
requests. The type of request is specified 
by the service call number and there are 
many types of service call which the 
system issues. However, the calls do not 
change across the whole series of Acorn 
computers, from Electron to Master 
(although the Master series has several 
extra service calls). 


When you press Break or turn on your 
micro, the OS will first evaluate where 
there are ROMs by looking in each socket 
for a recognisable header. In particular 
the contents of location &8006 (&82 for 
service ROMs) is stored in a table located 
(with OS 1.2) at &2A1 (ROM Ø) to &2BØ (ROM 
15). Thus to disable the ROM in socket n 
is easy, just type: 

?(&2Al*n)-0 
but remember that it will be enabled again 
with Break. To re-enable a service ROM 
without Break you will need to re-store 
&82 at the same address. This will not 
work with a second processor. 
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The service call system is very 
simple. The OS places the call number in 
the accumulator and does a JSR &8ØØ3 into 
each of the service ROMs in turn starting 
at number &F. So if your ROM is not to 
respond to a particular service call you 
must RTS with all registers intact so that 
some other ROM can act on it. If you do 
want to respond then again you must RTS 
afterwards with all registers restored to 
give other ROMs their chance. If you want 
to prevent them having a go then first 
load A with Ø before the RTS. Easy! 


The complicated part is understanding 
why and when the various service calls 
are issued. To help you understand this 
the first program assembles a ROM header 
together with enough code to print out the 
contents of the A, X and Y registers in 
response to every service call which comes 
its way, and before the service call is 
passed on to the other ROMs. 


When the code is assembled in sideways 
RAM and Break is pressed, all the service 
calls are reported. You will find that the 
accumulator (A) contains the service call 
number, as expected and that X is always 
the same (the ROM number of your sideways 
RAM - the currently active ROM). Y will 
vary. Some service calls make use of this 
register, some don't. 


It is well worth spending some time 
familiarizing yourself with which service 
calls are issued at what times. Some of 
the calls you will see are: 


Pressing Break : Calls 1, 2, 3, &FE 
and others from DFS. 

Pressing Escape : Call 6 (error) 

Disc accesses : Call &C 

*HELP tell 9 

*commands : Call 4 unless OS 
command 

*TAPE OR *ROM : Calls &F,&1Ø 


The detailed meaning of these and the 
other calls used can be found in chapter 
15 of the Advanced User Guide. In this 
article we shall use only calls 1 and 9 
and in the future call 4. 


CREATING A USEFUL SIDEWAYS ROM 

In order to make your ROM well-behaved 
- one which does not interfere with other 
ROMs - it is necessary to stick to the 
simple rules laid down by Acorn: 
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A. The Rom must have a correct header. In 


the programs this is created by 
PROCromhead. It has three string 
parameters: a title string, version 


string and copyright string. Feel free 
to alter those listed to your own 
choice of name, etc. As part of this 
header, at $8003 the OS must find a 
JMP to the start of your code. 

B. The code must terminate with RTS. 

C. All registers must be restored to 
their entry value before leaving. 


Property of: 


RROMIBCIIE 


x 
¢. Albans. Herts 


BBC Computer 

DUMPMASTER 

HELP (*H)> 

ICON MASTER 

SPELLCHECK III 

TOOLKIT PLUS 

Watford Electronics DFS 1.43 
BASIC 

> 


Our first offering as a useful 
sideways ROM is shown in the second 
program. This should be typed in with the 
first program still in memory. It 
comprises four new procedures any of which 
can be omitted if you do not require a 
particular feature. Simply remove the 
procedure call from the program in lines 
1900-160 and the unwanted procedure 
definitions. Here are all the procedures 
you'll finish with: 


PROCromhead (vital) 
From Program 1. Sets up the ROM header. 


PROChelp (optional) 
Produces code which responds to *HELP 
(service call 9) by printing the ROM 
title. It does not do anything if the 
*HELP has any parameters (e.g. *HELP DFS) 


PROCfxcalls (optional) 
Produces code to issue *FX calls when 
Break is pressed (service call 1) to, say, 
set up your printer with *FX5,2 and *FX6,0 
or change the auto-repeat rates. The *FX 
call data is in DATA statements from line 
10000. Put the three parameters of *FX 
A,X,Y on each line, padding with zeros as 
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| EEE 


required, and end with 20,0,0. The data 
given changes the beep to a gentle buzz, 
issues a *TVØ 1, and enters lower case. 
The parameter which the procedure uses is 


the line number of the first DATA 
statement. 

PROCbreakmessage (optional) 
Produces code to print a message on 


pressing Break. Any message can be printed 
as defined in DATA statements from line 
11000, even a full colour mode 7 logo. The 
DATA must terminate with an empty string 
and blank lines should contain a single 
Space. The parameter passed is the line 
number of the first DATA line. 


PROCfkeys (optional) 
Sets up the function keys on Ctrl-Break. 
The function keys required should be set 
up before running this program. They are 
then copied into RAM and restored whenever 
Ctrl-Break is pressed (not on Master 128). 


PROCendrom (vital) 
From program 1. Provides the RTS. 


The modular nature of the program 
makes the code in the ROM repetitive and 
wasteful of space. However, the source 
code is much easier to follow and we are 
very unlikely to run out of space - 8K is 
plenty for all we need to do! 


Type in the program and be sure to 
save it before you run it. Mistakes very 
often lead to non-working ROMs and 
pressing Break can make the system crash, 
needing a switch-off! A RAM disabling 
Switch on your ROM board becomes very 
useful at times like these. 


Further articles in this series will 
explain how to write your own procedures 
and *commands and introduce routines to 
drive printers, list ROMs and re-define 
other ROMs' *commands to avoid command 


clashes. 


If you would like to explore this area 
further we recommend Bernard Hill's 
RomIt from BEEBUGSOFT. This contains a 
full 16K of machine code and provides 
users with a wide range of star commands 
for use with sideways RAM and ROM. 


10 REM PROGRAM SERVICE CALL DISPLAY 
20 REM VERSION BØ.1 

30 REM AUTHOR B.R.HILL 

40 REM BEEBUG JUNE 1986 
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50 
60 
108 
119 


REM PROGRAM SUBJECT TO COPYRIGHT 


P$-&8000:02$-88000 
PROCromhead ("Service reporter","vl 


+Ø","BEEBUG 1986") 


1128 
1138 


PROCrepor tcode 
PROCendrom 
END 


DEFPROCromhead (name$ , ver$ , owner$ ) 
Q$-P$:R$-0$ 

FOR opt-4 TO 7 STEP 3 
P$-0$:0$-R$ 
[ OPT opt 
EQUW Ø 

EQUB 9 N not a language rom 
JMP serve N service entry pt 
EQUB &82 N rom type 

EQUB copyrite MOD 256 

EQUB Ø 

.title EQUS CHR$13-*name$ 
.verstr EQUS CHRSØ+ver$ 
-copyrite EQUS CHR$Ø+"(C) "+owner$ 


+CHRSØ 


1140 
1158 
1168 
1170 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2099 
2190 
2118 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2276 
2280 
2290 
2300 
2310 


-serve 
]:NEXT opt 
ENDPROC 


DEFPROCreportcode 
Q3=P%:R%=0% 

FOR opt=4 TO 7 STEP 3 
P$-0$:0$-R$ 
[ OPT opt 
PHA 
TXA : PHA 
TYA: PHA 

LDX #0 

. loop 

LDA mess,X N print message 

BEQ endmess N Ø marks message end 
JSR &FFE3 \ osasci- write byte 
INX 

JMP loop 

.endmess 

TSX:LDA &103,X N get A off stack 
JSR printbyte 

TSX:LDA &102,X N get X 

JSR printbyte 

TSX:LDA &101,X \ get Y 

JSR printbyte 

JSR &FFE7 \ osnewl - print CR 
PLA: TAY 

PLA:TAX 

PLA N restore registers 
JMP finish N jump to end 

emess \ data 

EQUS "Service call: A,X,Y=" 

EQUB Ø 
.printbyte 
PHA 


N save registers 


N save for later 
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232Ø LDA #32 
2330 JSR &FFE3 \ write a space 


2340 PLA \ restore A 

2350 PHA \ but resave for later 
2360 LSR A \ find 

2370 LSR A N top 

2380 LSR A N half 

2390 LSR A N byte 

2400 JSR outbyte N output to screen 
2410 PLA N old value 

2420 AND #&F N find low half-byte 
2430 .outbyte N and output to screen 
2440 TAX 


2450 LDA nums,X N to ascii 


2460 JSR &FFE3 \ print 
2470 RTS 
2480 .mess N data area 


2490 EQUS "Service call : A,X,Y-" 
2500 EQUB 0 N zero terminator 
2510 .nums 

2520 EQUS "Ø123456789ABCDEF" 

2530 .finish 

2540 ]:NEXT opt 

2550 ENDPROC 

2560 : 

9000 DEFPROCendrom 

9910 [ OPT 7:RTS:] 

9020 ENDPROC 


1Ø REM PROGRAM SIDEWAYS ROM 
100 P$-&8000:0$-&8000:5$-0$ 
119 PROCromhead ("Custom Rom","V1.Ø","B 
EEBUG, 1986") 
120 PROChelp 
130 PROCfxcalls (19080) 
140 PROCbreakmessage (11980) 
150 PROCfkeys 
160 PROCendrom 
170 END 
180 : 
2000 DEFPROChelp 
2010 Q%=P%:R%=0% 
2020 FOR opt-4 TO 7 STEP 3 
2030 P%=0%:0%=R%:REM for pass 2 
2040 [ OPT opt 


2050 CMP #9 N *HELP call? 
2060 BNE nohelp N no, exit quick 
2070 PHA 

2080 TXA:PHA N save registers 


2090 TYA:PHA 
2100 .again 
2118 LDA (&F2),Y 


N Y too 


N end of command 


2120 CMP #32 \ is it space? 
2130 BNE notspace \ .. no 
2140 INY N yes .. find end 


2150 JMP again 
2160 .notspace 
2170 CMP #&ØD 
2180 BNE endhelp 


NOTIS rE CR? 
\ no so not respond 
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2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
3000 
3018 
3020 
3030 
3040 
3050 
39060 
3070 
3080 
3090 
3100 
311Ø 
3120 
3130 
3140 
3150 
3168 
3170 
3180 
3190 
3200 
32198 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3490 
3418 
3420 


LDX #0 N initialize loop 
.helploop 

LDA &8009,X N get title 

BEQ endtitle N zero terminator 
JSR &FFE3 N osasci - print 
INX N next title char 
JMP helploop 

.endtitle 

JSR &FFE7 N osnewl - print CR 
.endhelp 

PLA:TAY N restore 

PLA: TAX X registers 
PLA 

.nohelp 

] : NEXT 

ENDPROC 

DEFPROCfxcalls(dataloc) 
Q$-P$:R$-O$ 

FOR opt-4 TO 7 STEP 3 
P$-0$:0$-R$ 

[ OPT opt 

CMP #1 \ break pressed? 

BEQ break \ yes 

JMP nobreak \ no, quick exit 


«break 

PHA \ save 

TXA:PHA N registers 

TYA: PHA 

LDA &A8:PHA N need two zpg 
LDA &A9:PHA \ locations too 
LDA #fx MOD 256 


STA &A8 \ load pointer to 
LDA #f£x DIV 256 

STA &A9 N fx calls 
.dofx 

LDY #0 

LDA (&A8),Y N get fx number 
BEQ finifx N ends with Ø 

PHA N just save A a while 
INY 

LDA (&A8),Y N lst fx parameter 
TAX N into X 

INY 

LDA (&A8),Y \ 2nd fx parameter 


TAY N into Y 

PLA N lst param restored 
JSR &FFF4 \ do *FX 

LDA &A8 \ now update 

CLC P1 pointer 

ADC #3 I by 

STA &A8 X. adding 3 
BCC dofx N no carry, reloop 
INC &A9 N carry. INC hi-byte 
JMP dofx N now do next *fx 
TEILE N all *fx are done 
PLA:STA &A9 N restore 

PLA:STA &A8 \ everything 

PLA: TAY N which 

PLA: TAX X was 
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343Ø PLA N 
3440 .nobreak 
3450 JMP exitfx 
3460 .fx 

3470 ]:P$-P$430:REM fx data here 
3480 0%=0%+3Ø 

3490 [ .exitfx:]:NEXT opt 

3500 REM now put data in place 
3518 c=0%-P% 

3520 RESTORE dataloc 

3530 REPEAT 

3540 READ a,x,y 

3550 fx?c-a:c-c*l 

3560 fx?c=x:c=c+1 

3570 fx?c=y:c=c+1 

3580 UNTIL a=Ø 

3590 ENDPROC 

3600 : 

4000 DEFPROCbreakmessage (dataloc) 
4010 Q%=P%:R%=0% 

4020 FOR opt-4 TO 7 STEP 3 

4030 P%=0%:0%=R% 

4040 [ OPT opt 


used 


4050 CMP #1 \ break pressed? 
4060 BNE notbreak \ no 

4070 PHA \ yes, so 

4080 TXA:PHA \ save all 

4090 TYA:PHA N registers, and 
4100 LDA &A8:PHA \ 2 zpg bytes 
4110 LDA &A9:PHA N too 


4120 LDA #message MOD 256 

4130 STA &A8 N save pointer to 
4140 LDA #message DIV 256 

4150 STA &A9 N message 
4160 LDY $0 N start loop 

4170 .messloop 
4180 LDA (&A8) ,Y 
4190 BEQ endmess 
4200 JSR &FFE3 
4210 INY 

4220 BNE messloop 
4230 INC &A9 

4240 JMP messloop 
4250 .endmess 
4260 JSR &FFE7 N osnewl - send CR 
4270 PLA:STA &A9 \ restore 

4280 PLA:STA &A8 \ all values 

4290 PLA:TAY N and 

4300 PLA: TAX X registers 
431Ø PLA 

432Ø .notbreak 

433Ø JMP exitmess 

4340 .message 

4350 ]:P%=P%+1Ø24:REM 1K - enough for 
4360 0%=0%+1Ø24:REM full MODE 7 screen 
4370 [ .exitmess:]:NEXT opt 

4380 REM now put message in rom 

4390 m-message*O$-P$ 


N get message byte 

N ends in &00 

N osasci - write 

N bump pointer 

N not over 255 bytes 
N over page boundary 
N and loop back 
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RESTORE dataloc 

REPEAT 

READ mess$ 

Sm=mess$ 

m=m+LENmess$+1 

UNTIL mess$="" 

?(m-1)=0 

ENDPROC 

DEFPROC fkeys 

O$-P$:R$-O$ 

FOR opt-4 TO 7 STEP 3 
P$-20$:0$-R$ 

[ OPT opt 

CMP #1 \ break? 

BNE exitfkey 

PHA \ save registers 
TXA : PHA 

TYA: PHA 

LDA #&FD \ first find out 
LDX #0 \ whether we had 
LDY #&FF N hard or soft 
JSR &FFF4 NX break 

CPX #0 \ soft? 

BEQ finload N yes - don't load 
LDX $0 

-fkeyloop 

LDA &9FØØ,X N get byte from saved 
STA &BØØ,X N and store in fk buff 
INX 

BNE fkeyloop N loop if not yet 256 
.finload 


PLA:TAY \ restore all 
PLA:TAX X registers 

PLA 

.exitfkey 

]:NEXT opt 

REM copy from current FK buffer 


FOR I$-0 TO &FC STEP 4 

I$! (&1F00*S2) -I$!&B00 

NEXT I$ 

ENDPROC 

REM *FX calls on break: 
DATA 211,4,0:REM alter beep 
DATA 212,184,0 

DATA 213,2,0 

DATA 214,2,0 

DATA 202,48,0:REM lower case 
DATA 144,0,1:REM *TVØ 1 
DATA 0,0,0:REM end record 
REM Breakmessage 

DATA "Property of:" 

DATA " " 

DATA Mr Beebug Member 

DATA Anytown 

DATA Anyplace 


"n 
DATA "S 
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HARDWARE 
ANIMATION 


Although animation techniques 
have been extensively covered in 
past issues of BEEBUG, Alan Webster 
and Simon Tresman have produced 
a novel and unusual approach using 
the Beeb's hardware. 


This short article describes an 
unusual technique for animation based on 
the Beeb's hardware scrolling facility. A 
variety of interesting and varied effects 
can be produced and the results can be 
quite stunning. The basis of the program 
is the hardware scroll of the BBC's 6845 
CRTC (Cathode Ray Tube Controller). This 
is the chip that controls most aspects of 
the Beeb's screen display. 


Registers 12 and 13 of this chip point 
to the screen memory location that forms 
the start of the screen display. By 
changing the values contained in these two 
registers, we can cause the whole screen 
to shift at great speed. 


To use this to animate any object on 
the screen, it is necessary to display the 
object in successive orientations and 
positions up the screen. Scrolling the 
Screen display makes the shape appear to 
remain in the same screen positions but 
sequence rapidly through its different 
orientations. In this way shapes can be 
made to rotate, or shrink and grow, very 
rapidly. Many other interesting visual 
effects can be found through a process of 
trial and error. 


The main routine is PROCscroll(N%), 
where the value of N$ determines by how 
much registers 12 and 13 are to be 
incremented each time. This process is 
handled by the two VDU instructions in 
lines 1040 and 1950. 


Ina 20K mode (0, 1 or 2), each 
character line is made up of &280 bytes. 
Thus to scroll the screen by one line, the 
two registers should be  incremented by 
&280. If we wish to scroll the screen 
sideways, a number that is not a multiple 
of &280 should be used. 
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Be careful, when scrolling the screen, 
that the address written to the 6845 is a 
valid screen address (83000 to 88000 for a 
20K mode) or unexpected effects may occur. 


The short demo included with 
PROCscroll displays a pattern of polygons 
which appear to rotate through the use of 
hardware scrolling. Just specify the size 
(try 3 or 4) and the number of sides 
(between 2 and 6 is best) when prompted. 
One side will produce a dot, two sides a 
straight line, three sides a triangle etc. 
Experimenting with this program will 
reveal the potential of this technique, 
while further animation can be introduced 
using the more usual VDUI9 method. For 
more details of the 6845 registers see the 
Advanced User Guide page 359, 


1Ø REM PROGRAM Freaky 

20 REM VERSION BØ.1 

3Ø REM AUTHORS Alan Webster 

40 REM Simon Tresman 

50 REM BEEBUG JUNE 1986 

6Ø REM PROGRAM SUBJECT TO COPYRIGHT 
70: 

100 MODE 1:0N ERROR GOTO 100 

118 INPUTTAB(1Ø,1Ø) "Sides "S% 

120 INPUTTAB (4,14) "Size (1=small,6=lar 
ge) "TS: IFT%<1 OR T%>6 THEN 100 ELSE T$- 
(2^T$&*4) 

130 CLS: PROCdraw(T%) :PROCscroll (T$*40) 

140 END 

150: 

1000 DEFPROCscroll (N$):B$-&800 

1010 REPEAT 

1020 FOR A$-&3000 TO (&8000-N$) STEPN% 
1030 *FX19 

1040 VDU23,Ø,12,A% DIV B$,0;0;0; 
1058 VDU23,0,13,A$ MOD B% DIV 8, 
1060 NEXT:UNTIL INKEY-1 

1070 ENDPROC 

1080: 

1890 DEFPROCdraw (C$) 

1180 FOR X%=C% TO 1280 STEP C$*2 
1118 GCOL Ø,RND (3) 

1120 FOR Y$-C$ TO 1024-C$ STEPC$*2 
1130 PROCshape (X$,Y$,Y$/T$/5) 

1140 NEXT, 

1150 ENDPROC 

1160: 

1178 DEFPROCshape (M%,N%,A) 

1180 S=SIN (A) *T%+M%:T=COS (A) *T$4N$ 
1198 MOVE S,T 

1200 FOR G-A TO A*6.3 STEP (6.28/5%) 
1218 S=SIN (G) *T$4M$:T-COS (G) *T$4N$ 
1220 DRAW S,T:NEXT 

1230 ENDPROC 
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other features 
of BBC Basic, 
the ADVAL func- 
tion has many 
more uses than 
you might ex- 
pect. Certainly 
the main use of 


s 
course 


Using the 
ADVAL 


Function ADVAL is to 
allow Basic 
programs easy 
use of the 

Analogue to Digital (A to D) converter, 


but even if you have no intention of using 
this interface the ADVAL function still 
has much to offer as we shall see. 


First of all, though, let's just run 
through the more obvious uses of the ADVAL 
function before looking at some of the 
less obvious applications. Many people buy 
joysticks (which connect to the analogue 
port) to use with commercial games, and it 
is quite easy to write routines that will 
allow your own programs to be controlled 
by joysticks where appropriate. We'll have 
a look at a couple of typical examples and 
you should be able to adapt these to suit 
any other requirements. 


Most joysticks have some form of lever 
that you can move to indicate up/down and 
left/right, and a 'fire' button. The value 
you use with the ADVAL function will 
determine its function as shown below: 


ADVAL (Ø) read 'fire' status 

ADVAL (1) read joystick] left/right 
ADVAL (2) read joystick] up/down 
ADVAL (3) read joystick2 left/right 
ADVAL (4) read joystick2 up/down 


You may sometimes find a joystick which is 
connected differently. You can sort things 
out with the first (short) program. 


If you have only one joystick then 
set the limit of the loop to 2 in line 
130. The fire button is easy and this is 
the first value displayed. The possible 
values are as described in the User Guide: 
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If you thought ADVAL was Ø no button pressed 


all to do with the 1 left joystick (1) 

analogue port and button k pressed 

hardware then think Aight sR) 

m Ð P233 b 

again. Mike Williams 3 Arf nae. 

shows that there's much 

more to this frequently Experiment by moving 

overlooked function. each joystick in turn up 
and down, and left and 

t Like many 


1ØØ MODE 7:VDU23,1,Ø;Ø;Ø;Ø; 
11Ø REPEAT 


120 PRINTTAB (12,10) "ADVAL (Ø): ";ADVAL( 
Ø) AND3 

138 FOR I=1 TO 4 

140 AS-STRS (ADVAL (I) /16) 


150 PRINTTAB (12,12+1) "ADVAL ("+STRS (I) + 
"): ";SPC(4-LEN (AS) ) ;AS 

160 NEXT I 

170 UNTIL FALSE 

180 END 


right. You should see the corresponding 
values changing on the screen. This is 
where you need to know about the two kinds 
of joystick on the market. These are the 
'switched' joystick and the  'analogue' 
joystick, though both types are normally 
connected to the Beeb's analogue port. 


The analogue type of joystick provides 
continuous movement from one end of its 
range to the other (up and down or left 
and right). Numer ically, the values 
displayed by the above program will vary 
continuously between Ü and 4095. A program 
can easily use this data to control the 
position of any object on the screen, such 
as a cursor, target cross-wires etc. Note 
that the value obtained by the  ADVAL 
function is divided by 16. The reason for 
this is explained quite clearly in the 
User Guide and this conversion should 
always be used. 


The other type of joystick can only 
indicate direction, either up/down or 
left/right. Using the above program you 
will find a switched joystick generates 
only the values Ø, 2048 and 4095 (or close 
approximations to these). These values can 
then be used to indicate up/down or 
left/right, but it is up to the software 
to determine a position on the screen. 


SWITCHED JOYSTICK 

Let's look at a short program for use 
with a single switched joystick. This is 
listed on the opposite page. 
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SWITCHED JOYSTICK ROUTINE 


MODE 4:VDU23,1,0;0;0;0; 

ON ERROR MODE 3:REPORT:END 
X1=64Ø:Y1=512:X2=64Ø:Y2=512 
GCOL3,1:VDU5:exit$-FALSE: INC-32 
MOVEXI ,Y1:PRINT"A" 

REPEAT 

fire-FNmove 

IF fire AND | THEN PROCfire(X1,Y1) 
TS=INKEY (2) 

UNTIL exit$:VDUA 

END 


DEF FNmove 
MOVEX1,Y1:PRINT"A" 
X=ADVAL (1) /16-2Ø48: Y=ADVAL (2) /16-2 


IF X>1Ø24 X1=X1-INC ELSE IF X<-1Ø2 


1040 IF Y>1Ø24 Y1=Y1+INC ELSE IF Y<-1Ø2 
4 Y1=Y1-INC 

1050 MOVEX1,Y1:PRINT"A" 

1060 =ADVAL (Ø) AND 3 

1078 : 

11ØØ DEF PROCfire(x,y) 

111Ø exit%=TRUE 

1120 ENDPROC 


We must accept that with devices like 
this there may be a little variation in 
the resulting values. To accommodate this, 
the program converts the value from the 
joystick (initially in the range Ø to 
4095) to a number between -2048 and +2048. 
A value close to +2Ø48 will indicate a 
move up (or right), a value close to -2048 
will indicate a move down (or left), and a 
value close to Ø will indicate no change 
of direction. 


In the program, the distance to move 
(in graphics co-ordinates) is assigned to 
the variable INC (32 in the listing at 
line 130). Larger values will produce 
faster movement, smaller values slower 
movement. The general principle of the 
routine is to execute repeatedly a loop, 
reading the information from the joystick 
and adjusting the position (determined by 
Xl and Yl) of some object displayed on the 
Screen (in this case just a letter A). 
Using GCOL 3, the object is repeatedly 
redrawn on the screen and moves in the 
direction indicated by the movement of the 
joystick. In practice, you are also likely 
to need to make sure that your moving 
image remains within the screen area. 


This can be done by testing to make 
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sure that the values of Xl and Yl remain 
within the screen limits before 
incrementing their values for the new 
position. If you want to include such a 
test, modify the program above by typing 
in the following lines: 


1030 IF X>1Ø24 AND X1>=INC X1=X1-INC ELSE 

IF X<-1Ø24 AND X1<1280-INC X1=X1+INC 

1040 IF Y>1Ø24 AND Y1<1024-INC Y1=Y1+INC 
ELSE IF Y<-1Ø24 AND Y1|>INC Yl-Yl-INC 


If you find that the 'A' moves in the 
opposite direction to that indicated by 
the joystick, then change +INC to -INC or 
vice versa in lines 1030 and 1040 until 
screen and joystick match. If you have 
added the revised versions of lines 1030 
and 1040 then you will have to change 
these even further (swapping the two tests 
on Xl and the two tests on Yl). 


The routine also reads the state of the 
fire button. If pressed, this calls a 
routine PROCfire, which in this case just 
causes the program to terminate. It would 
be quite easy to take such routines as 
FNmove and PROCfire and expand these to 
produce a joystick-driven program. 


J ICK 'TIN 
MODE 4:VDU23,1,0;0;0;0; 
ON ERROR MODE 3:REPORT:END 
X1=64Ø:Y1=512:x2=64Ø:Y2=512 
GCOL3, 1 : VDUS : exit $=FALSE 
PROCplot 
REPEAT 
fire=FNmove 
IF fire AND 1 THEN PROCfire(X1,Y1) 
IF fire AND 2 THEN PROCfire(X2,Y2) 
UNTIL exit: VDU4 
END 
DEF FNmove 
PROCplot 
X1=128Ø-ADVAL (1) /51 .2: Yl -ADVAL (2) / 


X2=1 28Ø-ADVAL (3) /51 . 2: Y2-ADVAL (4) / 


PROCplot 
=ADVAL (0) AND3 


DEF PROCfire(x,y) 
exit$-TRUE 
ENDPROC 


H 


DEF PROCplot 
MOVEX1 , Y1: PRINT"A" 
MOVEX2 , Y2: PRINT"B" 
ENDPROC 
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JOY, KS 

The second example is a similar routine 
and demonstration for a pair of analogue 
joysticks (the standard Acorn type). The 
routines used are very similar to those 
used before except that the value obtained 
from the ADVAL function is used directly 
to give a screen position. A further 
procedure PROCplot just simplifies the 
display of the two selected objects, in 
this case the letters 'A' and 'B'. Because 
two joysticks are in use, both fire 
buttons are tested in turn. 


In the program above, the x  co- 
ordinates have been adjusted (by sub- 
tracting the ADVAL value from the screen 
width 1280) to ensure that screen and 
joystick movement match up horizontally. 
The values returned by the ADVAL function 
have this time been divided by 51.2 in the 
horizontal direction and 64 in the 
vertical direction. This gives a range of 
values from Ø to 1024 vertically, and Ø to 
1280 horizontally (matching normal screen 


graphics co-ordinates) rather than the 
previous Ø to 4096, 
With analogue joysticks, the speed of 


movement about the screen is determined by 
your dexterity with the joystick, you can 
very quickly move from one side of the 
Screen to the other. If necessary, you can 
use an analogue joystick like a switched 
joystick by using the other routines. Then 
the movement of the joystick merely 


ir On —————ÉAA———————————————————————————————————: 


indicates direction. 
make a switched 
analogue one. 


PRINTER CHECK 

Finally, this month, let's have a quick 
look at a quite different use of the ADVAL 
function, one which enables a program to 
determine for itself whether you have 
Switched your printer on or not. Here's 
the routine incorporated in a short 
demonstration: 

100 MODE 7:VDU23,1,Ø;Ø;Ø;Ø; 

118 IF FNtestprinter THEN PRINT"Printer 


However, you CANNOT 
joystick behave like an 


operational" ELSE PRINT"Printer switched 
off" 

120 END 

130 : 

1000 DEF FNtestprinter 

1018 VDU2,1,0,1,0,3 

1920 =(ADVAL (-4)=63) 

Run this program with your printer 


first switched on, and then again with it 
switched off, and note the difference. If 
you don't have a printer then the routine 
will always give the same result. The 
function  FNtestprinter can be easily 
incorporated in any of your own programs 
and enables any program to check that a 
printer is switched on and operational 
before trying to send any real output. 


Next month we'll take a look at this in 
much more detail to see how it works. We 
will also look at other interesting uses 
of the ADVAL function. sa 


——————————— —ÓÜÓáÜÁ— 


So there you have many of the keys to 
using BBC Basic to write clear, fast and 
well-structured programs. To summarise: 


* Don't use FP variables if integers 
will do (but remember that all the $ 
signs use up memory space). 


* Match an array's type to what it has 
to hold - it costs time and memory to 
be able to store 5.1287E23 when you 
only need 1 or Ø. 


* Use meaningful variable names. 


* Show program structure by making 
conditional blocks of code into 
procedures. Procedures are not limited 
to bits of code needed at several 
places in a program. 


* Impose structure on 
suitable loops. 


spaghetti by 


These principles apply, with one 
exception, if you are trying to get the 
maximum speed out of a program. The Beeb's 
resident integer variables (A%-Z%) are 
MUCH faster than any others, no matter how 
meaningful. As an example, I took the 
final version of the program above and 
went back to the resident variables of the 
second listing - it ran in a mere 
14.59 secs. However, unless speed is 
vital, it's normally better to use longer 
names; you'll notice the difference when 
you go back to a program after 6 months! 


Remember, too, that there is no 
substitute for a good and efficient 
algorithm in the first place. Time spent 
here will often produce better results 
than trying to speed up a poor algorithm, 
For example, there is no point checking 
all even numbers when searching for primes 
as 2 is the only even prime number. z 
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Macro 
Assemblers 


The latest software tools for machine 


code programmers are macro assem- 
blers. Geoff Bains has been taking a 


look. 


Giving the Beeb a built-in assembler 
was without doubt a masterful move on the 
part of Acorn. However, this primitive 
assembler offers only the bare essentials. 
More comprehensive assembler packages 
suitable for serious use have now been 
produced by several other companies., Here 
we look at two of these. 


difference with these new 
that they can handle 


The major 
assemblers is 


'macros' - sections of code that can be 
defined as a macro and called up and 
inserted into the machine code generated 


(the 'object code') whenever needed. It is 
a similar idea to subroutines except that 
the macro code itself is actually inserted 
in place of the call. 


In addition, these newer assemblers 
also have the facility to assemble from 
source code that is far larger than the 
Beeb's memory. This is especially useful 
if you are, say, assembling a ROM. What 
with the bulky mnemonics and extensive 
coments, the source code for an 8K ROM 
may take up around 5ØK. Clearly, this 
calls for a new assembler. 


Product : Macrom 

Supplier : Clares Micro Supplies 
98, Middlewich Road, 
Northwich, Cheshire, CW9 7DA. 
(0606) 48511 

Price : £40 (ROM) £35 (disc) 

Macrom is a very powerful assembler 
package combining a text editor, macro 
assembler, disassembler, and assembler 
routine library. 


The Macrom editor is a fully fledged 
text editor in its own right, though it is 
especially configured for writing 
assembler code. The editor operates in any 
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display mode and is entered with either 
the command *ED or *ED <filename> to edit 
a file already saved to disc or tape. 


The assembler text is entered as 
normal into the editor. A string starting 
with a space is assumed to be an op code. 
Strings without are taken as labels. As 
soon as Return is pressed at the end of a 
line the editor automatically formats the 
line into its four fields of label, op 
code, operand and comment. 


Needless to say you can use the cursor 


keys to go back on existing lines and 
alter them with the utmost ease. The 
function keys give you a range of 


facilities that owe more than a little to 


Wordwise. The editor can be toggled 
between overwrite and insert modes and a 
‘move  to' command is also provided. 


Markers can be inserted in the listing and 
the blocks deleted, moved or copied. 


The equivalent of Wordwise's menu page 
is provided by 'extended' commands entered 


in the window that springs up at the 
Screen base when fl is pressed. The 
extended commands will display the 


assembler listing (as Wordwise's preview), 
load and save blocks or the whole listing, 
change display mode, perform a search and 
replace operation, and assemble the code. 


version string 
copyright message 


MACRO 
offset DEFL Copy-origin 


origin 


NOOOOOCOOOOOCGCG 


The clever part of the Macrom editor 
is that the assembler is not stored as 
ASCII text. It is tokenized so that you 
can cram much more assembler source code 
into the Beeb's modest memory. Pure ASCII 
files (from, say, Wordwise) can be loaded 
into the editor using *EXEC. In addition, 
a program supplied on the support disc 
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will convert Basic programs containing 
assembler into Macrom editor files. 


Once your assembler program, or macro 
is written, it should be assembled. 
Macrom's assembler is extremely fast and 
provides for a number of options that 
control the assembly. The object code can 
be directed to a file on disc or tape, or 
directly into memory. The assembly listing 
can be printed or not as required and 
indeed the actual assembly output can be 
suppressed for a fast run through to 
detect errors. The assembler can suppress 
errors, stop at an error and print the 
offending line, or direct all the errors 
to a file for inspection after assembly. 


There's not a lot more you could ask 
of an assembler. Macrom not only performs 
all these tasks but does so efficiently 
and quickly. The real proof of the 
pudding, however, has to be the command 
set allowed by the assembler. 


Most of the normal assembler mnemonics 
and operators are allowed and several 
special ones as well. Op codes are only 
accepted in upper case leaving lower case 
free for use as labels. The extra op codes 
for the 65C02 (as used in the B*, Master, 
and 65C02 second processor) are also 
accepted but a warning is printed on 
assembly in case they are not wanted. 


For Beeb directives such as EQUB, the 
assembler not only allows the Basic form 
but other commonly used mnemonics like 
DEFB, DB, and DFB as well. Unfortunately 
Macrom does not allow the operator DIV so 
if you're used to using this to extract 
the high byte from a number, you'll have 
to get accustomed to the expressions '«' 
and '>' which are used to specify the high 
and low bytes of a number. 


Macrom can support conditional 
assembly too. The directives IF, ELSE, and 
ENDIF are used to alter the flow of 
assembly at assembly time according to 
factors under your control. 


Other pseudo-ops control the assembly. 
ORG and RUN define the start and execution 
addresses of the object code and EMBED 
sets the relocation address for code to be 
downloaded at run-time. A very useful 
directive, QUERY, will halt the assembly 
and allow a value to be entered by the 
user. The most important pseudo-ops 
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supported by the package, 
those that instigate macros. 


however, are 


A section of code that is to bea 
macro is defined within the pseudo-ops 
MACRO and ENDM. The label on the assembler 
line containing MACRO is the title of the 
macro and is used to call the code from 
the main assembler listing. Alternatively 
CHAIN "<filename>" will switch the 
assembler source from the main listing to 
the specified file on disc, to access 
other listings and other macros. 


Parameters can be passed to the macro 
to affect the exact nature of the code 
inserted at that point. Labels and values 
following the call to the macro are 
substituted in order for (1, @2, etc in 
the macro code. With the facility for 
conditional assembly, this provides a very 
powerful combination. The most complex 
assembler program can be simply broken 
down into easily-written chunks. 


To take advantage of the macro 
facility of Macrom, Clares also supplies a 
library of useful macros on disc. These 
cover a wide range of subjects from 
changing mode and printing characters to 
setting up a ROM header. 


The Macrom ROM also includes a dis- 
assembler, invoked through *PEEK. It will 
only operate on code in memory but it does 
have the useful facility of displaying the 
full names of all OS calls and vectors. 


Macrom is a very powerful package that 
will appeal to any serious assembler 
programmer. It has been designed carefully 
to fit in with existing ideas of the BBC 
Basic assembler but offers facilities far 
beyond that. The manual is well written 
and acts as both a clear, concise 
reference and a helpful tutorial. Full 
marks for an excellent product. 


Product :6502 Macro Assembler 
Supplier : Star Software 
PO Box 5, Wigan, 
Lancashire, WN5 7QB. 
Price : £24 
Star's macro assembler is a different 
kettle of fish to Clares'. It does not 
offer the same range of features as Macrom 
but then it costs a lot less too. 
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Star's assembler comes on a 8K ROM 
which comprises only an assembler. This 
ROM has no editor or disassembler, but 
then these may be found in many other 
packages. 


The Star assembler does not require an 
editor for writing the source code because 
every user of this ROM already has one. 
The Star assembler uses files created with 
the BBC Basic interpreter. That is not to 
say that the square brackets, OPT, loop 
structures, and other paraphernalia 
required by the Beeb's built-in assembler 
are necessary. Instead, an assembler 
listing is created as a series of program 
lines containing assembler statements. 


This means that the source code can be 
created just as you create a normal Basic 
program. It can be edited, renumbered, and 
so on as normal and saved and loaded from 
disc or cassette in the usual way too. If 
you have a Basic program editor of some 
kind then this can be used to supplement 
BBC Basic's editor to good effect. 
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define out chr &ffee 


macro to eriot string at "addr" 
Weacro show stringCaddr,len) 
LDX #68 

1 og LOA addr,X:JSR out chr 
HX:CPX #len:BÉC loop 

å SFFE? 
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i fo jan at 
NOUS UNE 
RAM mem 


[^] 
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define out, chr 


? 
d 
)*RSSEMBLE 


However you edit your source code, it 
is assembled with Star's assembler with 
the command *ASSEMBLE. This prompts you 
for the filename of the file containing 
the program or '*' can be entered instead 
to assemble the program in memory. 


Star's assembler does not assemble at 
quite the speed of Macrom but that's not 
to say that it's in any way slow. The 
object code generated is placed in an 8K 
output buffer in memory on its way to a 
file on disc or cassette. The object code 
is always saved with the same name - 
'FILEa'. If this gets to be too big (more 
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than 8K) a second file -  'FILEb' - is 
created and so on. Up to around 50K of 
object code can be generated in this way. 


Like Macrom, Star's assembler supports 
all the normal 6502 op codes and has 
several others with special functions. It 
can also support the 65C02 extra op codes 
but only after a #new command in the 
source code. This is in many ways a safer 
solution to the problem than that employed 
by Macrom. 


All of the Star assembler's pseudo-ops 
- to set the start and execution address, 
switch the printer on and off, and so on - 


are accessed with these f commands. This 
makes the assembler much easier for the 
beginner to come to grips with - the 


program code itself and the controlling 
commands are clearly separated. 


This assembler can also support 
conditional assembly with fif, #else, and 
#endif commands. Rather disappointingly, 
the functions EQUB, EQUS, and so on are 
not accessed with these names in Star's 
assembler. Instead, EQUB is called #byte 
and EQUW is #word. EQUS is called up 
rather confusingly with just ". However, 
a nice extension to this theme is the 
#include command that will place an entire 
file of codes into memory at that point in 
the object code - great for inserting 
large amounts of data prepared beforehand. 


To handle very large source code 
programs, split over several files, the 
#merge command will make the assembler 
treat the files as one. Macros are defined 
and used in Star's assembler in a very 
similar way to Macrom. The #macro command 
starts the definition and END finishes it. 
The macros can then be called up 
('expanded') by name whenever required. 
Parameters can be passed to the macros 
too, in a very similar manner to parameter 
passing to procedures in Basic. 


Although the Star package is not as 
comprehensive as Macrom it still offers a 
remarkably powerful program for the price. 
The manual is clear and helpful and has 
many example listings to show the use of 
this ROM's numerous facilities. Star's 
assembler is excellent for anyone just 
starting on the road to serious assembler 
work or who does not require the extra 
facilities of Macrom. 

kr] 
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Filer in a Tight Spot 


I very much liked the 
concepts, style and struc- 
ture of the database prog- 
ram, Filer, published in 
three parts in BEEBUG Vol.4 
Nos.6 to 8. It seemed to be 
just what I'd been looking 


for. I wanted to use it 
with my  ADFS, so the 
comment about the program 


being able to run with PAGE 
at its default value was 
reassuring that this would 
be possible, and I duly 
typed it in. 


After minimal debugging 
I was able to create, dis- 
play, sort and extract 
records as required. Imag- 
ine my disappointment when 
after a few test select- 
ions, sorts and what-have- 
you I got the dreaded "No 
room" error. I shortened 
the program as much as 
possible but I still get 
"No room" errors after a 
short period of use. 


As if that wasn't 
enough, a SORT on the 14 
records in my test datafile 


took 2 minutes and 9 
seconds. 
Whatever the shortcom- 


ings of the program, it 
certainly stimulated my 
interest, as do many of the 
articles you publish. 
Stuart W. Moore 


We have had to summarise Mr 
Moore's detailed letter 
which contained much useful 
and interesting comment. 
With the ADFS on the Bt 
(and on the Electron) it is 
not possible to reset PAGE 
below &19ØØ. Although Filer 
will run with this value of 
PAGE, it does depend on 
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your own data, and the 
original article did say 
that the program was best 
run with PAGE at &1400. 


The program can be shorten- 
ed by removing unnecessary 
Spaces, reducing long var- 


iable names and similar 
measures. Further compact- 
ion can be achieved by 


using a compacting routine 
like the *PACK in Toolkit. 
More drastic reductions can 
be made by dividing the 


program up into separate 
modules, e.g. one for file 
management, one for record 


management and one for 
sorting. This is quite easy 
to do and we have one 
version of Filer working in 
this way. 


The sort used is relative- 
ly slow (stated in the 
magazine), but reasonable 
for many uses of Filer. By 
Separating the sort from 
the rest of the program a 
much more efficient tech- 
nique could be implemented. 
Thanks, too, to all the 
many other members who have 
written in with useful 
comments and suggestions on 
Filer. 


Master Software 


I would like to clear up 
a small area of confusion 
which seems to have arisen 
over the terminal software 
in the Master lMbit ROM. In 
a number of places I have 
seen it stated that the 
'Termulator' ROM is 
included. This is not so. 
What you get is a small 
(2K) 'terminal' program 
which offers limited VT1ØØ 
emulation. Termulator is an 
entirely different product 
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available separately on a 
16K ROM. 


On the same note, the 
editor which is included is 
not ‘Basic Editor' but is 
an enhanced version of 
'EDIT' from the 6502 
Development Pack. 

Paul Fellows 
Acorn 


We are happy to put the 
record straight. Many 
of the early reports on the 
Master series contained 
Some inaccuracies of this 
kind. 


Blackjack Scoops the Pool 


I'd like to thank you 
and Messrs P.Jacobs and 
J.Button for the Blackjack 
game on the cassette for 
Vol.4 No.9. As far as I can 
see it is perfect in design 
and execution, and has 
excellent strategy. My only 
complaint is that it is 
wasting hours of my time in 
playing it. Please convey 
my appreciation to the 
authors. 

Sebastian Lazereno 


Alan Thorpe was another who 
wrote praising this game. 
He asks if the method of 


scrolling backwards and 
forwards through the 
instructions could be 
described in an article in 


BEEBUG. We have asked the 
authors to consider this. 
Copies of the relevant 
cassette/disc are still 
available for those who 
would like to obtain this 
game - see inside back 
cover of the magazine for 
details. 


ia 
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HINTS. HINTS, HINT 


HINT 


HINT 
an. 


Basic I Relocation 


Basic I users can 
imitate the relocation 
facility of the assembler 
in Basic II by using an 
offset whenever an absolute 
address is used. For 
example: 

1ØØ FOR pass=Ø TO 3 STE 
P 3:P%=&2000:0%=&6000 

118 [OPT pass 

120 JMP address+0% 

138 JSR location+0% 

149 LDA index+0%,X 

etc. 

To relocate the assembled 
code now only requires the 
alteration of the offset, 
0%. 

Cedric Marshall 


Masking 


Whereas DIV and MOD can 
be used to extract a few 
bits from a large hex 
number, it is unwise to use 
this as Basic takes the top 


bit set to one as 
indicating a negative 
number, giving unexpected 


results. Use the logical 
Operator AND to mask out 
the top bit first, if this 
is not required. E.g.: 

&7F123456 DIV &|ØØØØ 
gives &7F12, but 

&FF123456 DIV &1ØØØØ 
gives &FFFFFF13 

Mike Kay 


Pretty Easy List 


Programs can be listed 
in a format similar to that 
produced by the 'Pretty 
List' program (BEEBUG Vol.3 
No.9) using Wordwise. Spool 
the program onto disc or 
tape. Load it into Word- 
wise. Use menu option 5 to 
replace every colon with a 
pound sign. and place an 
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embedded 'DP13' at the 
start. Option 7 (or 6) will 
now produce a listing of 
the program with every 
statement on a new line. 
Unfortunately this will not 
work for programs with 
pound signs, or colons 
other than as statement 
separators. 

Michael Keal 


Half Procedures 


If you want to use a 
section of an existing 
procedure as a procedure in 
its own right, without 
repeating the program 
lines, you can simply add a 
second DEF PROC statement. 
This does make the program 
somewhat unstructured but 
it is economic on memory. 


For example these two 
program sections are 
equivalent: 


100 DEF PROCone 
110 PRINT "one" 
120 PRINT "two" 
130 ENDPROC 

14Ø : 

158 DEF PROCtwo 
16Ø PRINT "two" 
170 ENDPROC 


100 DEF PROCone 
11Ø PRINT "one" 
120 DEF PROCtwo 
130 PRINT "two" 


140 ENDPROC 
N. Silver 
Wordwise Plus 
Sentence Jumper 
A simple sentence 


jumper can be programmed 
into a segment as follows: 
FKEY 4,"." 
CURSOR RIGHT 2 
DISPLAY 
Jonathan Temple 


Decoding USR 


The most difficult 
aspect of using the USR 
function is separating the 
four parts of the number 
returned into the  acc- 
umulator, X register, Y 
register, and the status 
register. This is most 
easily done like this: 

!&70=USR (address) 

The accumulator will then 
be stored in location &70, 
Xin &71, Y in &72, and P in 
&73. 

Jonathan Temple 


High Precision Analogue 


The analogue to digital 
converter in the Beeb uses 
three forward-biased diodes 
as its voltage reference 
source, These can drift 
severely with variations in 
temperature. For a more 
stable reference use a 
LM3367 reference zener 
diode connected with its 
"+! lead to Vref, its '-' 
lead to ground and its 
'adjust' lead unconnected, 
This gives a reference 
voltage of about 2.49 volts 
with a maximum drift of 


1.51V over a 60 degree 
range. 

Brian Edwards 
Tube or Not 


To determine, from 
within a program, if a 6502 
second processor is conn- 
ected to your Beeb, the 
following short routine may 
be used: 

100 A%=&EA:YS=&FF 

118 IF USR(&FFF4) AND & 
FFØØ THEN tube$-TRUE ELSE t 
ube$-FALSE 

Richard Sterry 
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Light 
Fantastic 


Colour Space does for colour what a 
music synthesizer does for sound — 
transforms the everyday into 
something magical. Geoff Bains has 
been controlling the lights with 
dazzling success. 


Product : Colour Space 
Supplier : Llamasoft 
49, Mount Pleasant, 
Tadley, Hants. 
(07356) 4478 


Price : £7.95 


Colourspace, the packaging proclaims, 
is a light synthesiser. Colourspace is not 
a game. It is not a utility. It most 
certainly isn't a language. I haven't 
really decided just how it can be 
categorized. Just file under 'F for fun'. 


Colourspace has to be experienced. The 
program starts in demo mode. The whole 
Screen is filled with a mind-boggling 
dance of light and colour. Various 
sequences are played out on the screen 
until you retreat, with eyes still numb, 
to the instruction sheet to see what to do 
next. 


Colourspace is all about playing with 
light and colour. A cursor is moved around 


under the control of the keyboard or 
joystick, and 'fire' will produce a 
pattern on the screen. This pattern will 


change with time in a kind of explosion of 
colour. Moving the cursor and pressing 
fire continuously causes a trail of 
blossoming light. To add to the effect 
there is a symmetrical repetition of your 
shape also moving around the screen. 


This is impressive enough, but it's 


just the start. There are several 
'presets' available, selected with the 
functions keys, each with its own pattern 


and associated effects. However, you can 
design your own effects. This is not easy, 
as the parameters to change are very alien 
to any normal activity. 


The pattern can be in explosion mode, 
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' JEFF MINTER's 


A LIGHT SYNTHESISER 


which gives extra 
quality, or in 


umph to its dynamic 
stroboscopic mode, which 
flashes it on and off - at a variable 
rate, naturally. The dynamic qualities of 
the pattern can be changed too. The 
various complicated controls allow you to 
alter the length of the trails produced by 
moving patterns, the colours that it 
changes through, not to mention the cursor 
speed and smoothness of the plotting. The 
symmetry can be changed between X, Y, or 
XY axis or quad reflection. 


You can define your own patterns as 
well. Each stage of the changing pattern 
is drawn on the screen, pixel by pixel, 
with the joystick. You can even draw 
static graphics in the foreground of the 
screen and a very impressive pointed-eared 
gentleman's face is provided. The patterns 
and graphics can then be saved to disc or 
cassette for use at a later date. In fact 
sequences of movement can also be recorded 
in memory for effortless playback and 
saved to tape or disc too. 


The instructions are as mind-blowing 
as the program. They are written by Jeff 
Minter, the flower power guru of Atari and 
Commodore software, and author of the 
original Colourspace. Although this 
version is not programmed by him, Minter's 
fondness for the hippy lifestyle makes the 
instructions strange reading. They are 
full of words like 'zowie', 'zarjaz', and 
'froody' to express his obvious enthusiasm 
with this version. 


This static textual review cannot do 
justice to this excellent package and it 
makes the program sound very clinical and 
technical, and so it can be if you're that 
way inclined. However, Colourspace is 
really just about kinetic art, impressing 
your friends with the power of computers, 
and having a great deal of fun. = 
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TALKING HEADS 
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fantastic. 


The Spectrum is 
very successful. 
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The world is 
not ready for 
my genius. 


I hear you've 
just sold a C5. 
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Have some fun with Jonathan Temple's Talking Heads. Let your 
imagination run riot as you create sparkling conversations between your 
favourite characters. What did Uncle Clive really say to Alan Sugar? 


Talking Heads is not a game in the 
strict sense of the word, but it can 
certainly provide quite a lot of amusement 
and entertainment. It also has its more 
serious uses, particularly in education, 
for creating imaginative conversations. 


The program allows you to create two 
characters and then generate a 
conversation between them. However, other 
characters, once created, can be saved to 
cassette or disc, allowing you to build up 
a whole group of people who can then be 
made to talk to each other. 


Now you can create the conversation 
you have only dreamed about. Why not 
re-create your friends, teachers, the rich 
or famous and then give them all those 
catch-phrases you know so well. Now as I 
was Saying to Maggie the other day.... 


The program should be fairly 
straightforward to enter, and will work 
correctly with disc systems without 


resetting PAGE. 


Whilst debugging the program, try to 
use option <9> to exit from the program as 
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doing this will reset the cursor keys and 
Escape key to their default settings. You 
may also wish to leave out lines 158 and 
240 (error trapping) until you have 
otherwise debugged the program. 


CREATING CHARACTERS 

Once the program has been entered the 
fun really begins. First of all, you will 
need to give your characters names, and to 
do this choose option <I> from the menu. 
You will be asked "Are you sure (Y/N)?" on 
doing this, and in fact all options that 
could destroy the data in the memory 
require a 'Y' answer before you can 
proceed further. 


Once you have given the characters 
names (up to ten letters in length) you 
will be asked to enter starters for the 
two characters. Each may have up to four 
conversation starters, and these are used 
as opening gambits to start the ball 
rolling in a conversation, or to fall back 
on later. 


When entering any text into the 
program, don't worry that the words are 
'broken' on screen, as this will not be 
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seen when the conversation is displayed 
later. Pressing Return when prompted for 
the next starter will allow you to move on 
to the next character or back to the menu. 


The next part of the character- 
building process involves giving each 
character a list of triggers and replies. 


If one of a character's triggers crops up 
in the conversation, it will 'trigger' off 
one of up to four stock replies. These 
triggers and replies should be entered 
using option 42» from the menu. 


Whilst entering all this text you will 
probably make some mistakes - in this case 
use option <3> to edit them out. You will 
be asked which character to edit, and 
whether you want to edit the starters, or 
the triggers and replies. 


When editing, use the cursor keys to 
move up and down and the Delete key to 
delete an entry. To insert a new entry (or 
alter an existing one) press Copy and then 
type in the new text. Note also, that when 
editing the triggers and replies, the 
left/right cursor keys allow movement from 
one trigger or reply to the next. 


When entering the starters, triggers 
and replies, bear in mind that the 
starters and replies can be no more than 
sixty characters each in length and the 
triggers twenty. 


THE OTHER MENU OPTIONS 

Once you have entered and edited this 
data you can now start generating 
conversations; use option 445 to do this. 
Once a conversation has been generated it 
can be previewed with option «45» or 
printed out with option «6». Previewing is 
performed in paged mode, so use Shift to 
Scroll the next part of the conversation. 
Many different conversations can be 
generated from the same sentences, so it 
is well worth experimenting here. 


If at some point you wish to save a 
character, or load in a previously saved 
one, then this can be done using options 
<7> and «8» respectively. The prefix 'C.' 
is automatically added to the filename 
requested so that all characters can be 
held in directory C for disc users. Option 
«9» allows you to leave the program. 


Something else to note is that '*' 
commands (e.g.  *CAT) can be entered from 
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the menu - just press the * character and 
type the command in. However, disc users 
should be careful not to use commands 
which corrupt memory, such as *COMPACT or 
*COPY, 


The Escape key will allow you to 
return to the menu from certain points - 
for instance the editing option or when 
prompted for the filename during load/save 
operations. 


USING THE PROGRAM 

Before seriously entering proper 
characters it is wise to experiment and 
become used to the program, although it is 
quite user-friendly and there are prompts 
throughout. 


When creating characters, the 
starters, triggers and replies which you 
enter need to be carefully thought out to 
produce the best conversations. In fact, 
the quality of conversations produced by 
the program from the same characters can 
vary widely, from repetitive statements to 
interesting arguments. Therefore, it is 
always worth previewing and perhaps 
re-generating a conversation before 
printing it out, to get the best possible 
results. 


The number of triggers and lines of 
conversation allowed are set by the 
variables MX and NL respectively in line 
11Ø of the program. At present, MX is set 
to 20 for disc users, but tape users could 
increase this figure to 28 or perhaps 29 


triggers. Those with a Second processor, 
B* or Master 128 could set this figure 
even higher. 
SPOKEN CONVERSATIONS 

The program will also 'speak' the 


conversations using Superior Software's 
popular "Speech!" utility (see review this 
issue). To do this *RUN SPEECH before 
loading the Talking Heads program, or from 
the program's menu after loading, and the 
program will do the rest - use option <5> 
to hear the conversations spoken. This 
will not work on the Master or across the 
Tube - change line 140 to read 'speech=Ø". 


Because of memory limitations when the 
Speech system is used, MX in line 110 will 
have to be set to around 11 or 12 for tape 
users, and disc users will have to set it 
even lower and possibly set PAGE to 81300. 
When using this facility it is a good idea 
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to set NL to a low number as well (perhaps 
5 or so) because the speech can tend to be 
on the slow side! 


MAGAZINE CASSETTE/DISC 

This month's magazine cassette/disc 
contains two characters called Clive and 
Hermann for you to 'listen' to and 


1156 
1168 
1178 
1188 
11998 
LIES" 
1200 
1218 


UNTIL S-4 OR S$="":NEXT:CC=TRUE 
ENDPROC 


DEFPROCenter 

PROCtext(3,"Enter TRIGGERS and REP 
2) 
, 

P=FNperson ("Enter") 

REPEAT 


experiment with. 


10 REM PROGRAM TALKING HEADS 
20 REM VERSION B0.1 

30 REM AUTHOR J.Temple 

40 REM BEEBUG June 1986 

50 REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 

100 MODE 7 

110 MX-20:NL-20 

120 PROCinit:PROCclear 

130 REPEAT 

140 speech- (?&209«5 &DF) 

150 ON ERROR PROCerror:GOTO 130 


OR PROCerror:GOTO 130 
=7 PROCfile(Ø,"Save") 
260 IF C=8 PROCfile(1,"Load") 
270 ON ERROR GOTO 3650 

280 UNTIL C-9 

290 *FX 4,0 

300 *FX 229,0 

310 END 

320 : 

1000 DEFPROCcreate 

1018 PROCclear 

1020 PROCtext(3,"Create new characters" 


E: 


160 C-FNmenu 

170 ON ERROR GOTO 3650 

180 IF C=| PROCcreate 

198 IF C-2 PROCenter 

200 IF C-3 PROCedit 

210 IF C=4 PROCconversation 

220 IF C=5 PROCpreview (0 , Preview") 

230 IF C=6 PROCpreview (2, "Print") 
ERR 
k 


1Ø3Ø PRINT'GS;"Please enter first perso 
n's name:-"' 

19040 N$(Ø)=FNinput (1,1Ø,32,126) 

1Ø5Ø PRINT 'GS$; "Please enter second pers 
on's name:-"' 

1060 N$(1)=FNinput(1,1Ø,32,126) 

1Ø7Ø FOR P=Ø TO 1:CLS 

1Ø8Ø PROCtext (3, "Enter STARTERS for"+C$ 
+NS (P) ,2) 

1Ø9Ø S=Ø:REPEAT 

11ØØ PRINTTAB (Ø,5+5*4);G$; "Please enter 
STARTER no.";S*l 

1118 B=Ø:REPEAT VDU B,31,Ø,6+5*4 

1120 SS=FNinput (0,60,32,126) :B=7 

1130 IF S$="" IF S=Ø E-TRUE 

1140 UNTIL E=Ø:S$ (S,P)=S$:S=S+1 


Beebug June 1986 


1220 VDU 28,0,24,39,4,12,26 

1230 PRINTTAB(Ø,5);G$; "Please enter TRI 
GGER no.";T$ (P) 

1240 TS=FNinput (2,28,32,126) 

1250 IF E GOTO 1350 

1260 T$(T$(P),P)-T$:R-0:REPEAT 

1270 PRINTTAB(Ø,8+R*4);G$; "Please enter 
REPLY no.";R+1 

1280 B=Ø:REPEAT VDU B,31,Ø,9+R*4 

129Ø R$-FNinput(0,60,32,126) :B=7 

1300 IF R=Ø AND R$="" E-TRUE 

131Ø UNTIL E=Ø 

1320 R$ (T% (P) ,R,P)=RS:R=R+1 

133Ø UNTIL R=4 OR R$="" 

1340 T%(P)=T%(P)+1 

1350 UNTILT%(P)=MX+1 OR E=TRUE: TE=TRUE 
1360 ENDPROC 

1370 : 

1380 DEFPROCedit 

1390 PROCtext(3,"Edit character",2) 
1400 PRINT'GS;"Edit (S) STARTERS (T) TR 
IGGERS ?"; 

1418 B=Ø:REPEAT VDU B:G=GET AND &DF 
1420 B=7:UNTIL G=83 OR G-84 

1430 VDU G,19,10:87 (6783) :T=1 

1440 Y=5+ABS (S*4) :H=Y 

1450 P=FNperson ("Edit") : REPEAT 

1460 VDU 28,0,24,39,4,12,26 

1470 PRINT TAB (Ø,24);G$; "COPY to enter 
DELETE to delete"; 

1480 IF S=Ø PRINT TAB (Ø,4);G$; "TRIGGER 
"pM "T$ (T,P) 

1490 FOR J$-0 TO 3:VDU 26,31,Ø,8+J%*4 
1500 MS="REPLY":IF S MS="STARTER" 

1510 PRINT G$;M$;" ';J$41;";" 

1520 VDU 28,1,12+J%$*4,3Ø,9+J%*4 

1530 IF S PRINT S$(J%,P) ELSE PRINT RS( 
T,J$,P) 

1540 NEXT 

1550 VDU 26,31,1,H: REPEAT G-GET 

1560 IF G=139 VDU 31,1,VPOS-4:1F H=Y TH 
EN VDU 31,1,21 

1570 IF G=138 VDU 31,1,VPOS+4:IF H=21 T 
HEN VDU 31,1,Y 

1580 H=VPOS 

1598 UNTIL G-27 OR G=127 OR G=135 OR G= 
136 OR G=137 

1600 IF G-127 IF FNce?l PROCalter ("") 
1618 IF G=135 PROCnew 

1620 IF G=136 T-T-1:IF T<] T-T$(P)-1:IF 
T=Ø T=1 

1630 IF G=137 T-T41:IF T>=T%(P) T=] 
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1640 UNTIL G=27 

1650 ENDPROC 

1660 : 

1670 DEFFNce 

1680 K$-0:FOR J$-0 TO 3 

1690 IF (S=1 AND S$(J%,P)>"") OR (S=Ø 
AND R$(T,J%,P)>"") THEN K3=K%3+1 

1700 NEXT 

1718 =K% 

1720 : 

1730 DEFPROCnew 

1740 Z-VPOS:VDU 26,31,0,24,7 

1750 PRINTTAB (1Ø);G$; "Type in new entry 
";SPC(6); 

1760 VDU 31,1,Z 

1770 L$=FNinput (1,20- (VPOS>4) *40,32,126 


1780 IF NOT E PROCalter (L$) 

1798 ENDPROC 

1890 : 

1818 DEFPROCalter (M$) 

1820 IF E=TRUE ENDPROC 

1830 IF S=TRUE S$((VPOS-9)/4,P)=M$:ENDP 
ROC 

1840 IF VPOS<9 TS(T,P)=M$:ENDPROC 

1850 R$ (T, (VPOS-9) /4,P) -M$ 

1860 ENDPROC 

1870 : 

1880 DEFPROCconversation 

1890 P=RND (2)-1:Q=1 

1900 S=-1:T=@0:IFFNce<] VDU7:ENDPROC 
1918 REPEAT:REPEAT J%=RND (4)-1 

1920 UNTIL S$(J%,P)>"":BS=S$(J%,P) 

1930 REPEAT 

1940 L$ (Q)=NS (P) STRINGS (10-LEN (NS (P)) , 
" "m +": "4BS 

1950 VDU 30:P-P EOR 1 

1960 PROCtext (3, "GENERATING: "+STRS (Q), 
2) 

1970 Q=Q+1:F=FNtrigger (BS) 

1980 IF F THEN B$-FNreply(F) 

1990 UNTIL F=FALSE OR Q=NL+1 

2000 UNTIL Q=NL+1:CG=TRUE 

2010 ENDPROC 

2020 : 

2030 DEFFNtrigger (L$) 

2040 K3=Ø:N%=Ø:REPEAT K%=K3+1 

2050 UNTIL INSTR(L$,T$(K%,P))>Ø OR K$-T 


2060 IF INSTR (LS,T$(K$,P))50 N%=K% 
2070 =N% 

2080 : 

2090 DEFFNreply (N3) 

2100 REPEAT J$-RND (4)-1 

2110 UNTIL RS(N%,J%,P)>"" 

2120 =RS(N%,J%,P) 

2130 : 

2140 DEFPROCpreview(N$,M$) 

2150 PROCtext(3,M$+" conversation",2) 
2160 VDU 28,0,24,39,4 


2170 IF N$-0 AND speech-Ü VDU14 

2180 VDU N$ 

2190 IF N$-2 PRINT"A conversation betwe 
en "+N$(Ø)+" and "+N$ (1) 

2200 FOR J$-1 TO Q-1 

2210 PRINT 

2220 PRINT L$(J%):IF speech PROCsay 
2230 NEXT:VDU 3,26,15:PRINT'' 

2240 PROCtext(6,"  Press"+Y$+"SPACE BA 
R"+C$+"to continue — ",0) 

2250 REPEAT UNTIL GET-32 

2260 ENDPROC 

2270 : 

2280 DEFPROCsay 

2290 $&700-"*SAY "+MIDS (LS (7$) ,12) 

2300 X$-0:Y$-&7:CALL &FFF7 

2310 ENDPROC 

2320 : 

2330 DEFPROCfile(N$,M$) 

2340 PROCtext (3,M$+" character data",2) 
2350 P=FNperson (M$) 

2360 PRINT'G$;"Enter filename for chara 
cter data:-"' 

2370 FS="C."+FNinput (1,7,65,122) 

2380 IF E THEN ENDPROC 

2390 IF N$-0 F-OPENOUT (F$) ELSE F-OPENI 
N (FS) 

2400 IF N$-0 PRINT #F,NS(P) ELSE INPUT 
#F,N$ (P) 

2410 FOR J$-0 TO 3 

2420 IF N$-0 PRINT fF,S$(J%,P) ELSE INP 
UT #F,S$ (J%,P) 

2430 NEXT 

2440 IF N$-0 PRINT fF,T%(P) ELSE INPUT 
HE, TS (P) 

2450 FOR J%=1 TO T%(P)-1 

2460 IF N%=Ø PRINT &F,T$(J$,P) ELSE INP 
UT #F,TS(J%,P) 

247Ø FOR K%=Ø TO 3 

2480 IF N$-0 PRINT #F,RS(J%,K%,P) ELSE 
INPUT #F,RS (J%,K%,P) 

2490 NEXT, 

2500 CLOSE #0:IFN% CC=TRUE: TE-TRUE 

2510 ENDPROC 

2520 : 

2530 DEFPROCerror 

2540 CLOSE $0:PRINT':REPORT 

2550 PRINT''CS$; "Press any key";:G-GET 
256Ø ENDPROC 

257Ø : 

2580 DEFFNperson (M$) 

2590 PRINT'GS;MS;" data for character ( 
MET" 

2600 B=Ø:REPEAT VDU B:G-GET AND &CF 
2610 B=7:UNTIL G=] OR G=2:CLS 

2620 IF MS="Save" M$="Sav" 

2630 NS=M$+"ing data" 

2640 IF MS<>"Load" NS=NS+" for "+CS+N$( 
G-1) 

2650 PROCtext(3,N$,2) 
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266Ø =G-1 

267Ø : 

2680 DEFFNinput (V$,W$,X$,Y) 

2690 Z=VPOS:VDU 28,1,2+2,39,Z 

2700 IF W$-60 VDU28,1,2+2,30,2,12 

2710 LS="":REPEAT L%=LEN (LS) 

2720 A-GET 

2730 IF A-27 E-TRUE:A-13:IF L$-0 GOTO 2 
800 

2740 E=FALSE 

2750 IF A=127 IF L%>@ LS=LEFTS (L$,L%-1) 
:GOTO 2790 

2760 IF A-13 IF L%>=V% GOTO 2790 

2770 IF A<32 OR L$-W$ A-7 

2780 IF A>=X% AND A<=Y L$=L$+CHR$ (A) EL 
SE A=7 

2790 VDU A 

2800 UNTIL A-13 

2818 VDU 26:1F L$>"" VDU 31,0,242 

2820 -L$ 

2830 : 

2840 DEFFNsure 

2850 PRINT TAB (9,22); 

2860 PROCtext(l,"Are you sure (Y/N) ?", 
Ø) 

2870 B=Ø:REPEAT VDU B:Z=GET AND &DF 
288Ø B=7:UNTIL Z=78 OR Z=89 

2890 =(Z=89) 

2900 : 

2910 DEFFNmenu 

2920 REPEAT:REPEAT CLS 

2930 PROCtext(3," TALKING HEADS",2) 

2940 VDU 11 

2950 PROCtext(6,"by Jonathan Temple 198 
6" ) 

2960 RESTORE 3550 

2970 FOR J$-1 TO 9:READ M$ 

2980 PRINTTAB(Ø,2*J%+3);G$;J%;") 
2990 NEXT 

3000 PRINTTAB(Ø,23);C$; "Enter option (1 
-9) gus 

3010 B=Ø:REPEAT VDU B:G-GET AND &CF 
3020 B=7:UNTIL G>Ø AND G<11 

3Ø3Ø IF G=1Ø PROCoscli 

3040 UNTIL G>Ø AND G<1Ø 

3050 VDU31,0,G*243,136,31,0,23 

3060 F=TRUE:IF G=] OR G>7 F=FNsure 
3070 IFG>1 IFG<8 IFCC-0 PROCerr ("No cha 
racters created"):F-0:G0TO31060 

3080 IF G=4 IF TE=Ø PROCerr("No trigger 
S entered") :F=Ø 

3Ø9Ø IF G=5 OR G=6 IF CG=Ø PROCerr ("No 
conversation generated") :F=Ø 

3100 UNTIL F:CLS 

3110 =G 

3120 : 

3138 DEFPROCerr (E$) 


"SMS 
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3140 
3150 
31690 
3170 
3180 
3190 
3); 
3200 
3218 
3220 
3230 
3240 
3250 
3260 
3270 
3280 


I ——————————————M——————— E 


PRINT ' ' E$ ' 'C$; "Press any key"; 
Z=GET 

ENDPROC 

DEFPROCOsc1i 

PRINTTAB (1,23); "*"; SPC (20) ; TAB (2,2 


$&700=FNinput (1,39,32,126) 

IF NOT FNsure ENDPROC 
CLS:X$-20:Y$-&7:CALL &FFF7 
PRINT''C$;"Press any key";:G-GET 
ENDPROC 


DEFPROCtext (C,T$,D%) 
PRINT:FOR L$-1 TO D$:VDU 1284C 
PRINTTAB ( (34-LEN (T$) ) /2) ; CHR$ (139+ 


D$);T$ 


3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3446 
3450 
3460 
3470 
3480 
3490 


RS (MX, 


3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3608 
3610 
3620 
3630 
3640 
3650 
3660 
3670 


NEXT 

ENDPROC 

DEFPROCclear 

FOR J$-0 TO 1:T%(J%)=1 

NS (J$) -STRINGS (10," ") 

FOR K%=Ø TO 3 

SS (K$,J%) =STRINGS (60," ") 

S$ (K%,J%)="":NEXT 

FOR K%=1 TO MX 

TS (K%,J%)=STRINGS (20," ") 

FOR L%=Ø TO 3 

RS (K$,L$,J$)-STRINGS (60," ") 
R$ (K%,L%,J%)="":NEXT,, 

FOR K%=1 TO NL 

L$ (K$) =STRINGS (76," ") : NEXT 
CC=FALSE: TE=FALSE:CG=FALSE 
ENDPROC 

DEFPROCinit 

DIM L$ (NL) ,N$ (1) ,S$(3,1) , T$ (MX,1) , 
3,1) ,T$ (1) 

G$=CHRS1 3Ø: YS-CHR$131 :CS=CHRS1 34 
*FX 4,1 

*FX 229,1 

ENDPROC 

DATA Create new characters 
DATA Enter more data 

DATA Edit present data 

DATA Generate new conversation 
DATA Preview conversation 
DATA Print out conversation 
DATA Save character data 

DATA Load character data 
DATA Leave program 

MODE 7:CLS: REPORT 

PRINT " at line ";ERL:*FX 4,0 
*FX 229,0 
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Editorial Address 

BEEBUG 
PO BOX 50, 
Holywell Hill, 

St. Albans ALI 3YS 
CONTRIBUTING TO BEEBUG 
PROGRAMS AND ARTICLES 

We are always seeking good quality 
articles and programs for publica- 
tion in BEEBUG. All contributions 
used are paid for at up to £40 per 
page, but please give us warning of 
anything substantial that you 
intend to write. A leaflet, ‘Notes 
of Guidance for Contributors’ is 
available on receipt of an A5 (or 
larger) SAE. 

In the case of material longer than 
a page, we would prefer this to be 
submitted on cassette or disc in 


machine readable form using 
"Wordwise", "View", or other 
means, but please ensure an 


adequate written description of 
your contribution is also included. 
If you use cassette, please include a 
backup copy at 300 baud. 


HINTS 


There are prizes of £5 and £10 for 
the best hints each month, plus one 
of £15 for a hint or tip deemed to 
be exceptionally good. 


Please send all editorial material to 
the editorial address above. If you 
require a reply it is essential to 
quote your membership number 
and enclose an SAE. 


SUBSCRIPTIONS 


Send all applications for membership, subscription renewals, subscription 
queries and orders for back issues to the subscriptions address. 


MEMBERSHIP SUBSCRIPTION RATES 


£ 6.90 6 months (5 issues) UK ONLY) 
£12.90 UK - 1 year (10 issues) 


£19.00 Europe, £22.00 Middle East 
£24.00 Americas & Africa, £26.00 Elsewhere 
BACK ISSUES 
(Members only) 


Single Volume sets 
issues (10 issues) 
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Each 

subsequent 
issue issue 
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70p 


DESTINATION 


UK 
Europe 
Elsewhere 


20p 


All overseas items are sent airmail (please send a sterling cheque). We will 
accept official UK orders but please note that there will be a £1 handling 
charge for orders under £10 that require an invoice. Note that there is no 
VAT on magazines. 


Back issues are for members only, so it is ESSENTIAL to quote your 
membership number with your order. Please note that the BEEBUG 
Reference Card and BEEBUG supplements are not supplied with back 
issues. 
Subscriptions, Back Issues & 
Software Address 


BEEBUG 
PO BOX 109 
St. Johns Road 
High Wycombe HP10 8NP 


Hotline for queries and software orders 


St. Albans (0727) 40303 
Manned Mon-Fri 9am-4.30pm 


24hr Answerphone Service for Access and 
Barclaycard orders, and subscriptions 
Penn (049481) 6666 


If you require members* discount on software it is essential to quote 
your membership number and claim the discount when ordering. 


Magazine Cassette/Disc 


JUNE 1986 
CASSETTE/DISC 
CONTENTS 


COMPUTER SIMULATION — random sampling routine and complete 
application. 

BEEBUG FILER GOES GRAPHIC — full program to display all your 
data graphically. 

THE MASTER SERIES — open up the private RAM with these routines 
to save and load function key definitions. 

PASSING ARRAYS TO PROCEDURES — highly useful techniques for 
Basic programmers. 


BEEBUG WORKSHOP — examples of how to speed up programs in real style. 


FIRST COURSE — useful routines for using and testing the ADVAL function. 
HARDWARE ANIMATION — complete demonstration of this novel 

graphics technique 

TALKING HEADS — have fun by creating characters and conversations 
between the rich and the famous, friends and relatives, pop-stars 

and politicians 

EXTRA FEATURES THIS MONTH 

MAGSCAN — data for this issue of BEEBUG (Vol. 5. No. 2) 

GRID RUNNER 2 — highly playable follow-up to Grid Runner 


(on the BEEBUG demo disc). A superb example of machine 
code graphics. 
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Computer Simulation 


All this for £3.00 (cass) £4.75 (disc) +50p p&p. 
Back issues (disc since Vol. 3 No. 1, cass since Vol. 1 No. 10) available at the 


same prices. 


Subscription rates DISC CASS 


UK UK 


6 months (5 issues) 


225.50 £17 
12 months ( 10 issues) £50 £33 


DISC CASS 
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Prices are inclusive of VAT and postage as applicable. Sterling only please. 


Cassette mg can be commuted to disc subscription on receipt of 
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